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COURRIER DES LECTEURS 


LES CATALOGUES SPECIAUX 


J'ai 21 ans et je suis un 
passionné d'informatique 
et d'électronique. J'ai 


acheté.ily a deux ansun CPC6128 et 
j'ai fait depuis une dizaine de pro- 
grammes personnels (utilitaires et 
jeux). J'achète, depuis le mois de Fé- 
vrier 92, votre revue que je trouve très 
bien et que j'étudie avec soin afin de 
comprendre vos programmes et de 
me perfectionner en programmation. 
Mais si aujourd'hui je vous écris, c'est 
parce que je n'ai toujours pas réussi à 
résoudre trois problémesetje voudrais 
que vous m'aidiez. Le premier con- 
cermne l'affichage du catalogue, car 
j'ai remarqué que sur certaines dis- 
quettes (de jeux, notamment) quand 
je demande le catalogue par CAT, il 
n'yaquelenomdumenuquis'affiche 
et non les noms des progammes de 
jeux. Je pense que les programmeurs 
de ces jeux utilisent une méthode 
différente du simple SAVE «nom». Alors 
je voudrais savoir quelle est cette 
méthode et s'il est possible de faire 
apparaître les noms des programmes 
sauvés par cette méthode.Mon deur- 
xième problème concerne directe- 
ment la fonction CAT. En effet, on 
obtient parfois avec cette fonction 
desrésultats différents des catalogues 
traditionnels. J'aimeraissavoir quelest 
la méthode pour arriver aux mêmes 
effets et quelles en sont les limites (je 
veux dire par là, quels sont les décors 
que je ne peux faire et ceux que je ne 
peux pas faire). Mon troisième pro- 
blème concerneles programmes que 
l'on lance en tapant ICPM par ex- 
emple, mais en général, les program- 
mes que l'on lance en mettant une 
barre droite devant le nom. Je vour- 
drais savoir pourquoi certains jeux sont 
sous cette forme et quels sont les 
avantages. De plus, j'airemarqué que 
la plupart des disquettes concernées 
ne sont pas formatées. Le sont-elles 
vraiment où est-ce la façon de pro- 
grammer qui «embrouille» le lecteur. 
Patrick Meyran (74) 


CPC INFOS : Je pense que le premier 
problème et le deuxième sont en fait 
de la même origine, c'est-à-dire qu'il 
s'agit dans les deux cas d'une mani- 
pulation du catalogue. Normalement, 
lors de lacommande CAT. l'ordinateur 
exécute (entre autre) une routine qui 
affiche les caractères contenus dans 
chaque «entrée catalogue». Cette 
dernière notion mérite quelques 
explications : il faut savoir qu'une dis- 
quette formatée èn «Data» possède 


un catalogue débutant sur la piste 0, 
secteur &CI et se terminant sur la 
piste 0 secteur &C4. Si vous possédez 
un éditeur de secteurs (Discology par 
exemple) vous pourrez aller observer 
ce qui se passe sur ces secteurs. Vous 
allez y trouver des «entrées cata- 
logue»., elles sont constituées de 2 
lignes de 16 octets. Dansun catalogue 
«normal» on trouve, sur la première 
ligne. les octets suivants : ler octet., le 
numéro de User (de 0 à 15ou encore 
229 lorsque le fichier a été effacé). les 
8 octets suivants contiennent le nom 
du fichier ainsi que le nom de 
l'extension (BAS, BIN ou autre). C'est 
à cet endroit précis qu'il est possible 
de placer des caractères de contrôle. 
Ces derniers sont des codes ASCII 
spéciaux. Pour les utiliser, il suffit de 
faire PRINT CHRS(N) avec n compris 
entre 0 et 31. Par exemple, si vous 
remplacez la première lettre de votre 
fichier dans l'entrée catalogue 
correspondante parle chiffre 07 vous 
obtiendrez lors du CAT un bip suivi de 
l'affichage du catalogue. Vous 
trouverez également des fonctions 
de changement d'encre, de mode, 
la fonction LOCATE est également 
représentée. Pour avoir une liste 
complète de ces codes de contrôle, 
il suffit de consulter le manuel de 
l’Amstrad (chapitre 7 page 3 pour le 
6128 et chapitre 6, page 231 pour le 
6128 +). Pour faire des essais etpuisqu"'il 
n'y a pas assez de place ici, il est 
préférable d'examiner le contenu 
d'une disquette contenant un 
catalogue trafiqué. Attention, ufilisez 
toujours une copie de votre disquette 
originale pour bidouiller sinon vous 
risquez de perdre certaines données. 
Quant auxlimites de l'utilisation de ce 
trucs elles concernent la faille du 
catalogue : puisqu'il ne peut y avoir 
au maximum que 64 entrées dans le 
catalogue, vousne disposez que d'un 
peu plus de 800 octets pour créer 
votre catalogue personnel. N'oubliez 
pas également de laisser dans le 
catalogue le nom des fichiers qui 
doivent être exécutés. En ce qui 
concerne l'instruction ICPM, il s'agit 
d‘uneRSX (Resident SystemeXtension) 
c'est-à-dire d'une instruction supplé- 
mentaire au BASIC. Un utilisateur averti 
peut créer aussi ses propres fonctions 
(une instruction CERCLE parexemple). 
Dans le cas qui nous intéresse, la 
fonction CPM commence par lire le 
secteur &41 de la piste 0. La valeur 
&41 indique que la disquette doit être 
formnatée en «SYSTEM». Ensuite, les 
données qui se trouvent dans ce 
secteur sont plaçées dans la mémoire 


de l’Amstrad puis sont exécutées. Les 
programmeurs de jeux ont simple- 
ment placé dans ce secteur leur 
propre routine de chargement. Quel 
est l'avantage de ce système ? Eh 
bien, il s'agit là d'une forme de 
protection des données : pas de 
catalogue, pas de nom de fichiers 
apparents (en fait, pour le CPC, iln'y 
a pas de fichiers du tout) et le 
formatage peut être totalement 
différent de ceux reconnus par 
l’Amstrad. 


LES COEURS INVISIBLES 
DU JEU BOULI 


Voici mon problème : j'ai 
D< tapé Bouli dans le CPC Infos 

no 45 de Juin et je n'ai réussi 
à trouver aucun coeur. Si, comme je 
le crois, les coeurs sont invisibles, y a-t- 
il une possibilité pour les colorier ? 
Vous serait-il possible dans une pro- 
chaine revue, de faire Un sommaire 
des numéros précédents ? 
Joëlle Fourot (94) 


CPC INFOS: Le jeu Bouli pose le même 
problème à de nombreux lecteurs : 
où sont donc passés les coeurs. En 
fait, ils sont bien visibles dans le jeu 
(sauf si vous avez commis une erreur 
dans la frappe du listing) mais il ne 
faut pas oublier que le terrain est im- 
mense. Alors, il faut s'armer de pa- 
tience et parcourir toutes les salles 
avant de mettre la main sur les cœurs. 
Quant au récapitulatif des numéros 
précédents, il ne saurait tarder. 


DES PROBLEMES DANS LE PROGRAMME 
DE TRANSFERT CPC-PC 


Je n'ai pas de problèmes 
DKavec le listing de 
CCPVC.BAS en Basic CPC. 


En revanche, pour le programme PC 
en GW-Basic les lignes 830, 840, 1500, 
1510, 1520, 2430 de CPCVC.BAS ne 
sont acceptées car la syntaxe n'est 
pas reconnue par mon GW-BASIC 
(Microsoft) de même pour le pro- 
gramme de test du cordon. Aussi j'al- 
merai savoir si vous avez fait paraître 
une modification dans une de vos 
revues. 


CPC INFOS : En fait, le problème vient 
simplement des signes *«#» quidoivent 
obligatoirement être présents devant 
chaquenombre hexadécimal. IIs'agit 
d’une omission de notre part, veuillez 
nous en exCUser.m 


PROGRAMMES 





AU KILO 





Les nouveaux PAK sont là. De nouveaux auteurs également. 
À ce sujet, je pense qu'il est nécessaire de lancer à nouveau un appel aux programmeurs 
de bonne volonté : envoyez un maximum de programmes en 1 ou 2 Ko sur papier, 


cassette ou disquette. 


C’est facile et cela risque de passionner les lecteurs de CPC Infos. 


e mois-ci 4 programmes sont 

placés sous les projecteurs : 
CC Vous allez maintenant pou- 
voir : 1) lire le mode d'emploi et 2) 
taper et sauver le programme (de 
préférence dans cetordre pour éviter 
les problèmes). 


ARTIFICE.BAS : C'est une routine 
graphique envoyée par Aurélien 
Gérard. Elle produit sur l'écran des 
effets graphiques utilisant le cyclage 
des couleurs. 


FONCTION.BAS : Dans une classe de 
Terminale, l'étude de toute fonction 
est primordiale. Il existe de nombreux 
traceurs graphiques, mais peu d'entre 
eux, d'ailleurs je n'en connais pas, 
donnent le SENS de variation d'une 
fonction, ce qui est aussi intéressant 
quele tracé lui-même. Eneffet, remplir 
un tableau de variation est toujours 
obligatoire. J'ai donc écrit ce P.AK. 
dans le but de rechercher un sens de 
variation pour toutes les fonctions. De 
plus, ce programme donne les limites 
aux bornes et reconnaît l'infini, si 
l'image de x est + 100. 

Je pense que tous les élèves de 
Première et Terminale accueilleront 
ce programme avec... intérêt plutôt 
que joie. 

L'utilisation est trèssimple. L'ordinateur 
demande si on veut modifier la 
fonction. Entrez “oui” (en minuscules) 
sic'estle casetsulvreles...l'instruction. 
Sinon il suffit de taper RETURN” à la 
question précédente et on entre les 
bornes. On peut aussi vérifier si son 
travail personnelest correct. Je pense 
eneffet qu'il est malgré tout préférable 
de falre vous-même le travail et non 
de le recopler | 

NB. : Même si Je dis “TOUTES” les 
fonctions, attention pourles fonctions 
trigonométriques aux arrondis. On 
peut trouver parfois une partie 
constante lors du changement de 


sens (mais est-ce bien grave ?). 
Je n'ai jamais trouvé de problème 
d'ensemble de définition comme : 


R* pour f(x) = L 


le programme marche mais signale 
une croissance en (-0,01 et 0.0). 
Normal : changement de bornes. 


(Nicolas GERARD) 


Croissance 





DEFILMNT.BAS : ce P.A.K.estunutilitaire 
qui,comme sonnoml'indique, permet 
de réaliser des défilements de texte 
souples et rapides. 

Assurez-vous, avant de lancer ce 
programme qu'une disquette 
possédant au moins 12 ko libres ou 
qu'une cassette vierge se trouve dans 
votre lecteur. 

Une foislancé. le P.A.K. vous demande 
d'entrer, en les séparant par des 
virgules, 5 paramètres : le mode (0, 1 
ou 2), la colonneinitiale X, la colonne 
finale Y, la ligne Z, le nombre de 
caractères de votre texte C. Tapez 
ENTER. Si les paramètres que vous 
venez d'entrer respectent les 
conditions qui apparaissent à l'écran 
(exemple : X compris entre 1 et 40, Y 
compris entre 2 et 40...), tapez °O” 
sinon pressez une autre touche pour 
entrer de nouveaux paramètres. 
Ensuite, faites en sorte de taper vote 
texte sur les points qui apparaissent à 
l'écran dansle mode choisi puis tapez 
ENTER. Ne tenez pas compte des 
messages d'erreur "SYNTAX ERROR" 
OU “LINE TOO LONG”. Pressez enfin la 
touche “2” du pavé numérique et 
patientez quelques secondes. Pour 
utiliser le fichier “TXT” sauvegardé 





avant l'exécution de la routine en 
langage machine : 

1. réinitialisez votre CPC 

2. tapez : MEMORY &74FO : LOAD 
"TXT" : Mode m° : CALL 29937 *m = 
mode choisi comme paramètre. 
N.B. : Pour arrêter le défilement du 
texte, tapez sur la barre d'espace. 
Evitez de donner à Zles valeurs 1 ou 2 : 
le balayage de l'écran rend le 
défilement moins souple. 

Si vous tapez “O” alors que les 
paramètres ne respectent pas les 
conditions imposées, l'erreur ne sera 
pas détectée mails la routine en 
langage machine se plantera. 
(Jean-Jacques NOLLE) 


GRAF.BAS : Dans la lignée des pro- 
grammes graphiques, Graf affiche un 
motif en «nappe» toujours très spec- 
taculaire. Pour modifier l'allure de ka 
courbe il faudra faire quelques mo- 
difications et changer les fonctions 
des lignes 80 et/ou 90. 


CARESPO.BAS : Pierre Chibleur propo- 
se un programme pour redéfinir les 
caractères utilisés en Espéranto, la 
langue intemationale inventée par L. 
Zamenhoff au début du siècle. 
Certains caractères n'existent pas 
dans l'alphabet. Ce programme les 
définit et les code en utilisant les 
touches é è,ç.à./. On peut ainsi créer 
un dictionnaire avec des datas : 
français (majuscules), espéranto 
(minuscules). 


Si cette rubrique vous plaît, faites le 
savoir et surtout participez activement 
à son épanouissement. 


Editions SORACOM 
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A bientôt ! 


FONCTION.BAS 


1 'P.A.K. par Nicolas G{rard )FA 






2 ‘Etude du sens de variation pour TOUTES fonctions >FB 
3 pour CPC Infos (c) 96-1992 )FC 
19 sens=-2:MNODE 1:GOSUB 378:INK 2,2:BORDER 8: INK 9,8:IN >GN 
K 1,15:tr=8:PEN 1:GO0T0 339 
28 DEF FN y(x)=SIN(x) >PU 
38 INPUT "Borne de dipart ",dep )ÉE 
48 INPUT "Borne d’arrivie ",arr >FC 
58 INPUT “Intervalle ",inter >BC 
68 CLS >MG 
78 PEN 3:PRINT “Intervalle: ["dep","arr")" )QF 
A RT : F : C E e B A S 88 PEN 1:PRINT". Lisite pour D ee @ la borne . >ND 
5 ? PAK 6 par Aurelien GERARD DFE 98 x=dep:y2=FN y{x) >PH 
19 MODE 9 )BC 198 x2=x DAE 
28 RESTORE 349 DU] 119 GOSUB 218 )GE 
38 FOR a=1 TO 15 )VB 129 FOR x=dep TO arr STEP inter »2Y 
49 READ g >CK 138 IF FN y(x)€y2 THEN IF sens=-1 THEN 298:ELSE sens=-1 »JQ 
58 INK a,g XKC :GOTO 168 
69 NEXT >YG 149 IF FN yx)=y2 THEN IF sens=f# THEN 299:ELSE sens=8:G >GC 
78 ORIGIN 329,289 )LR OTO 169 
88 o=1 )JB 159 IF sens=i THEN 298: ELSE sens=1 >BH 
98 j=i >HH 168 IF tr=1 THEN PRINT USING"#H##, #4" 5x2: :PRINT "J]":G0S DUE 
199 FOR t:1 TO 499 STEP 26.6666667 >2T UB 219:ELSE tr=1 
119 DRIGIN 329,298 >LF 179 IF sens=1 THEN PRINT "Croissante sur [";USING"#H## >TK 
129 MOVE o,t DEA <##":x25 PRINT ","::G0TO 299 
139 FOR a-=8 TO 639 STEP 19 >RF 189 IF sens=8 THEN PRINT "Constante sur ['":;USING"###4,. >QY 
149 DRAW t#SIN(a),t*C0S(a),0 XV H#"ix2:: PRINT ","::G0T0 288 
159 NEXT )EB 199 IF sens=-1 THEN PRINT "D{croissante sur ['";USING"## >XK 
169 0=0+1 )ED HtH#";x25 PRINT ",";:GOTO 298 
179 NEXT )ED 289 y2=FN y(x):x2=x:NEXT:PRINT USING"HH##. #4" 5x2: PRINT DFU 
188 FOR a:9 TO {5 >BH "]":GOSUB 219:G0T0 329 
199 INK a,f >PB 219 PRINT:PEN 2:1F FN y(x2)199 THEN 249:ELSE IF FN yix >XQ 
299 BORDER 9 >BD 2)<-198 THEN 279:ELSE PRINT" Lim f(x)=";USING"'##4#.# 
219 NEXT )DJ #";FN y(Cx2) 
228 IF j=1 THEN RESTORE 349 )UB 229 PRINT " x)"; :GOSUB 398 JXU 
239 IF j=2 THEN RESTORE 358 DUE 239 PRINT:RETURN NT 
248 IF j=3 THEN RESTORE 369 >UH 249 PRINT " Lin f(x)=+1nf" >YK 
259 IF j=4 THEN RESTORE 378 >VC 259 PRINT " x-)'";:GOSUB 399 XX 
269 FOR t=1 TO 15 >DG 269 PRINT:RETURN )MU 
2179 READ g >KA 278 PRINT " Lim f(x)=-Inf" »YQ 
288 INK t,g >UD 289 PRINT " x-»";:GOSUB 398 >XA 
299 GOSUB 388 JB 299 PRINT:RETURN >NZ 
309 NEXT DJ 389 PRINT USING"##H#.N#";x2:PEN 1 AE 
319 j=j+1 >DA 319 RETURN >K 
328 IF j=5 THEN j=1 >MU 329 CALL &BB18 >MA 
339 GOTO 189 )ZB 339 PRINT:INPUT “Une autre fonction ";a$ >RM 
349 DATA 26,26, 26,26, 25,25,24,24,15,15,6,6,6,3,3,3 >QA 349 IF a$="oui" THEN 368 )RU 
359 DATA 26,26,26,26,29,29,11,11,5,5,2,2,2,1,1 >KN 3549 CLS:GO0TO 29 >DA 
368 DATA 26,26, 26,26,21,21,21,19,19,22,22,12,12,9,9 )RB 369 CLS:PRINT "Apris avoir entri la fonction, [ENTER]"; DYN 
379 DATA 26,26,26,26,17,17,17,98,08,98,98,94,94,04,94  >UQ :KEY 11,"run"+CHR$(13):PRINT:EDIT 29:END 
388 FOR a=ÿ TO 15 >EK 379 PEN 2:PRINT MHNXYHNYERNEENENRENNEUTE" >C4 
399 INK a,8 >PD 389 PRINT "* Sens de variation # >FD 
498 NEXT >DK 399 PRINT MHHYHINENEENERNEEUENXE" >XE 
419 RETURN ZA 498 WINDOW 1,49,5,25:PEN 1:RETURN >BE 


DEFILMNT.BAS 


1 at="11387521A199E505211888CD1ABCCD1SBDO8A8CSD5ES21598 >QY 
SEBEDB9D1E191F#9999ERCD26BCC11BEAD1 133E2FCD1EBB289B9 198 
DAEL2BEDA229CB18C3E1C9": MEMORY &74F4:FOR 1=1 TO LEN(A$) 
/2:POKE 29936+1,VAL ("&"+MIDS(A$, 1#2-1,2)):NEXT:KEY 128 

, "GOTO 6"+CHR$(13) 

2 MODE 1:INPUT "Mode, X,Y,Z,C:":M,X,Y,2,C:1F M=Q THEN A= )DQF 
29:D=32 ELSE A=49xM:D=32/ (M#2) 

3 E=89/A:L=Y-X:N=INT(19999/D) :R=49152:W=LXE: PRINT "1-X- )DY 
MiA-LiX+1i"- YA 5"f-7-25 f-C-"iN:"(D)ui?":CALL &KBB18:1 

F INKEY(34)=f THEN 4 ELSE 2 

4 Y=Y+1:V=20968:P=Ex(C+2#L) :GOSUB 5:V=29941:P=Ex(C+L):G >VC 
OSUB 5:NODE M:POKE 29947,X-1:POKE 29946,Z-1:POKE 20969, 
W:FOR 1=1 TO C:PRINT ".";:NEXT: END 

5 G=INT(P/256):H=P-G#256:POKE V,H:POKE V+1,G:RETURN >XN 
6 FOR 1-9 TO 7:0=-0+W:FOR J=R TO R+C+E-1:POKE 39989+0,PE >RY 
EK(J+1#2948) :0=0+1:NEKT:0=0+W:NEXT: SAVE"TXT",B, 29937, 0+ 
63:CLS:CALL 29937 





GRAF.BAS 


18 'pak )LA 
28 MODE 2:0RIGIN 329,299:DEG:DEFINT a-q,5-2:DIM h(491): DEC 
FOR a=ÿ TO 48ÿ:h(a)=-1998:NEXT:FOR y=188 TO -98 STEP -1 
ÿ:x=199:GOSUB Bÿ:xi=y-199:y1=(-x-y)/2+z:FOR x=198 TO -1 

#8 STEP -! 

38 GOSUB 8B:MOVE x1,yt:x1=y-x:y1=(-x-y)/2+z:1F yiCh(xi+ DFA 
289) THEN 48 ELSE h(xi+298)=y1:DRAW xi,yi 

48 IF x MOD 19-8 THEN GOSUB 64 JW 
58 NEXT x,y:END LA 
68 x2=y-x:y2=(-x-y)/2+2:b=y: FOR a=y-1 TO y-1# STEP -1:y HE 
za! GOSUB 8Y:MOVE x2,y2:x2=a-x:y2=(-x-a)/2+z:1F y2<€h(x2+ 
2891 THEN 79 ELSE hix2+299)=y2:DRAW x2,y2 


78 NEXT:y=b:RETURN >QC 
88 r=SQRI(x#5)*2+(y#5)"2):IF r=$ THEN r=9.91 )LE 
99 z=(SIN(r)/r)#5898+(C0S(xx5)+COS(y#5) 418 >LR 


189 RETURN )YG 


CARESPO.BAS 


18 "CARESPO > LA 
28 "Programme pour definir les caracteres >LB 
38 "ESPERANTO ?LC 
49 SYMBOL AFTER 64 Mu 


58 SYMBOL 123,4X11800,8X199198,84X111188,4X1199119, 81118 >HH 
9999,8X1198119,4X111109, 8&X9 

68 SYMBOL 125,4X11909,8X19919B,&X111118,4X1199119,8X1189 >HQ 
9119,8X1111119,8X119,&X1111189 

78 SYMBOL 64,8X119908,8X1991900, &X1119989, &X1181199,&X )QE 
1119119,8X1199118,8&X11199119, 8&X9 

88 SYMBOL 92,8X119,8X1981,8X1119, &X119,&X119, 81189119, DNF 
&X1199119,4X111199 

98 SYMBOL 94,8X11980,4X199199, &X111199,8X1198980,&X1111 DBA 
80,8X119,8X1111198, &X9 


95 HODE 2 >CH 

188 PRINT "POUR : UTILISEZ : ":PRINT >PK 

185 PRINT " (AZERTY)" BK 

119 PRINT " ";CHR$(123);" e accent aigu )NE 
"PRINT 

128 PRINT " ",CHR$(125);" e accent grave":P )GY 

RINT 


139 PRINT " ";CHR$(92);" 
149 PRINT " ";CHR$(64);" 
ENT 

159 PRINT " ";CHR$(94);" 


169 END DTA 


c cedille":PRINT YU 
a accent grave":PR >FQ 


accent circonflexe )FC 








Law E 
NOUVEAUX 
PIN 


Xi 


AXRENEX 
EXTE 
























NOUVEAUTES 
POUR LA RENTREE 


MATHS-CE7 


Tu viens de découvrir qu'un de 
tes riches ancêtres possédait de 
nombreux coffres contenant de 
magnifiques pièces d'or ! 

Mais voilà ! Les clés de ces di- 
fférents coffres ont été dissimulées 
dans des grottes et il va falloir 
partir à leur recherche. 

Réf. : MIC25CPC 


Prix : 200F + port 





FRANCAIS-CE2 Mais attention ! Ta moto ne roulera 


MATHS-CE2 Comme pour les GRANDS PRIX, il va qu'en fonction de tes connaissances. 

Lors d'un de tes derniers voyages, te falloir courir sur plusieurs circuits et Cinq circuits te sont proposés. 

te voilà arrivé au beau milieu du gagner les coupes mises en jeu pour 

désert en compagnie de tes  devenirle CHAMPION ! réf.: Miczzcpc Prix: 2OOF + port 

amis, les touaregs. || Va falloir les FE ES SR M NE EE TR PU To SNS 

aider à puiser de l’eau afin ss exercices et les degrés de difficulté évoluent suivant les diverses périodes 

d'arroser les palmiers de leurs de l'année et les compétences de chacun. 

oasis ! Un modèle d'EVALUATION permettra aux parents et enseignants de vérifier le 
Prix : 200F travail de l'enfant et d'avoir à tout moment une idée précise sur l'acquisition des 

Réf. : MIC26CPC + port compétences liées aux objectifs. 
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Tirage limité 
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CPC infos 


Attention, notez bien 
ce qui suit : 
tous les mercredis de 
14h. à 17h, la 
rédaction se tiendra à 
Ne votre disposition au 


FANZINES % Eee 99.52.98.11 pour tous 
30 F+port4F 4 -—, \ ] renseignements 
Ref. SRCPINO4 RSS) DU ET. | techniques. En dehors 
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de ce créneau les 


‘4 PEL > Ut réponses techniques 
30F + port 4 F RAS a i se feront par courrier 
Ref. SRCPINOS EE : OV 4 + % (n'oubliez pas de 

L NA À SE EDR mentionner votre 
Œ ET >Ÿ de SOC À adresse et joignez un 
T Oo —— LS 1 és 5 ons : 
«( SSSS use timbre pour la 
d REA L'' réponse) ou bien par 
See LS N PA ES Minitel sur le 3615 
LS. à code :MHZ. 





commande SORACOM 


GUIDE DU PROGRAMMEUR 


Votre programme est maintenant fin prêt, il ne vous reste 
plus qu’à envoyer votre œuvre à CPC Infos. 
Mais n’oubliez pas : 














Les listings sur 
me ls pro logram de x 





Le progr . 
0gramme enreni.s… LA 
rocéristiques E BOË do éponge à 


E PROGRAMMEUR 


NC ju E PROGRAMME 1 














| NOM : Prénom: 
Adresse COMPIÈtE :____________________ ! Catégorie Q Jeu Q Utilitaire Q Educatif 

| a — Taille : —_— i | 
TÉL AE — Périphériques utilisées : 

| Support Q Cassette Q Disquette | 
Attestation sur l'honneur Comptabilité (testée) avec : 

| Je soussigné I 

ee .… + à 464 Q 664 Q QP 256 

déclare être l’auteur du programme ci-joint et ne l'avoir 9 sB 6128 CW:828 

| jamais proposé à une autre revue. Signature 
Ce À 
* Ne pouvant être tenu pour responsable de l'acheminement des paquets postaux, nous conseillons à notre aima- | 
ble clientèle de choisir l'envoi en recommandé. 


Remplissez soigneusement ce coupon et joignez-lé à votre programme, sur cassette ou disquette. 





Envoyez le tout à CPC Infos — La Haie de Pan - 35170 BRUZ | 


= = 2 D ne D © > © D © EDS © OS © OC © > © 


Ptiaïpez à CPC Infos 


paré 


REMAKE ET PYMBU 









René BONCOURRE 


Valable pour CPC 664 - 6128 





Les boules avides de fruits, cela ne se rencontre pas tous les jours. 
Et pourtant voici l'aventure qui vous tombe dessus. 
Sous cette enveloppe sphérique, il est possible de sauter en l'air 
et de se diriger simultanément. 
Mais attention, lors de la descente, vous ne contrôlez plus rien et vous risquez 
de tomber dans le vide. 
Le mode d'emploi étant contenu dans le listing, il vous suffit de taper le programme et 
de le sauver sous le nom REMAKE.BAS. 


REMAKE.BAS 


ITU RECEPELCENEESEETEESCECEEESTE )LA 


29 *# Rene BONCOURRE L )LB 
38 'x 4 )LC 
49 ‘+ presente 0 )LD 
58 '# + )LE 
69 ’# REMAKE & PYMBU 4 )LF 
78 "x 3 )LG 
89 ‘+ CPC infos juin 1992 # LH 
CJ'NECTEIEFECEZTESEEEESEEESEEEE) DLJ 
198 v=3:v1=3:G0T0 1849 )K 
119 ? )RC 
129 RD 


139 INK 9,8:INK 1,26: INK 2,11:INK 3,6:PAPER B:PEN 1:BOR DCT 
DER 8 

148 MODE L:WINDOW 1,38,1,25:WIND0W#1,31,48,1,25:PAPER#1 DRG 
,2:CLS:CLS#1 

158 ENV 1,198,3,1:ENT 1,199,2,2:ENT 1,2,17,78 XT 
168 TAG:MOVE 596, 392,2, 1:PRINT "REMAKE"; :MOVE 598,394, 1 >PA 
31:PRINT "REMAKE"; :MOVE 546,374,2, L:PRINT"&" 5: MOVE 548, 
376,1,1:PRINT'"&"; 

178 MOVE 514,358,2, 1:PRINT"PYMBU"; :HOVE 516,368,1,1:PRI DUB 
NT"PYMBU" ; : MOVE 499, 342,3, 1: PRINT"--------- ";:MOVE 492, 
344,2,1:PRINT"--------- "so: TAGOFF 

188 TAG:MOVE 499,316,1,1:PRINT"JOUEUR 1";:MOVE 499,318, 
3,1:PRINT'JOUEUR 1"; :MOVE 499, 264,2, 1:PRINT"SCO" ; : MOVE 
492,266, 1, 1:PRINT"SCO" ; : TAGOFF :GOSUB 218 

198 TAG:MOVE 499,232,2,1:PRINT"VIE"; :MOVE 492,234,1,1:P )QC 
RINTYVIE ";:TAGOFF:GOSUB 228 

289 TAG:MOVE 498,288,2,1:PRINT"TABL"; :MOVE 492,292,1,1: DEB 
PRINT"TABL"; :TAGOFF:GOSUB 238:GO0T0 249 


LA 


RJ 


219 LOCATE#1,6,9:PAPER#1,2:PRINTHI," "TAG: MOVE 558 DRP 
,278,2,1:PRINT USING"#####"; sc; :MOVE 569,279, 1, 1:PRINT 
USING" #####" ; sc; : TAGOFF : RETURN 

229 LOCATE#1,6,11:PAPER#1,2:PRINT#," ":TAG:MOVE 57 )GN 
4,238,1,1:PRINT USING"###";V:: MOVE 576,238,2,1:PRINT US 
ING" #44"; V5: TAGOFF : RETURN 

239 LOCATE#1,6,13:PAPER#1,2:PRINT#1," "TAG:MOVE 57 DLC 

4,296,1,1:PRINT USING"###"; TA; :MOVE 576,296,2,1:PRINT U 

SING"##H" 3: TA; : TAGOFF : RETURN 

249 TAG:MOVE 498,156,1,1:PRINT"'JOUEUR 2"; :MOVE 499,158, DRV 

3,1:PRINT'JOUEUR 2"; :MOVE 499, 198,2, 1 :PRINT"SCO" : :MOVE 

492, 182, 1, 1:PRINT"SCO" ; : TAGOFF:GOSUB 278 

258 TAG:MOVE 498,78,2,1:PRINT'VIE"; :MOVE 492,72,1,1:PRI DLN 

NT'VIE" ;:TAGOFF:GOSUB 288 . 

269 TAG:MOVE 498,49,2, 1:PRINT"TABL";:MOVE 492,42,1,1:PR DCH 
INT'TABL"; :TAGOFF:GOSUB 299:GO0T0 399 

279 LOCATE#1,6,19:PAPER#1,2:PRINT#1," "eTAG:MOVE 55 UF 

8,198,2,1:PRINT USING"####";cs; :MOVE 569,198, 1, 1:PRINT 
USING"H####"; cs ; : TAGOFF:RETURN 

288 LOCATE#1,6,21:PAPER#1,2:PRINT#1," MeTAG:MOVE 57 GC 

4,76,2,1:PRINT USING'###";v1:: MOVE 576,78,1,1:PRINT USI 

NG"HHE" V1 ; : TAGOFF : RETURN 

298 LOCATE#1,6,23:PAPER#1,2:PRINT#1," "2TAG:MOVE 57 DHR 

4,44,2,1:PRINT USING"###" sat; : MOVE 576,46,1,1:PRINT USI 

NG"#H#4";at ; :TAGOFF : RETURN 

389 LOCATE#1,1,16:PAPER#1,2:PRINTH," " )QE 

318 SYMBOL AFTER 127 >PX 

329 SYMBOL 128,68,126,255,255,255,255,126,69:bo$=CHR$(1 >BD 

28) ’boulle 

338 SYMBOL 127,255,255,255,255,255,8,9,4 DFK 

349 SYMBOL 149,9, 24,36,36,32,9,8,9:SYNB0L 141,0,8,9,9,6 HK 
, 192,96, 9 

359 cer1$=CHR$(149) :cer2$=CHR6(141) )CU 

369 SYMBOL 142,24, 24,126, 126, 192, 192,126, 126:bt$=CHR$(1 >BD 


42) 


379 SYMBOL 153,48,24,48,16,16,56,68,56:c1$=CHR$(153) 
389 SYMBOL 145,36, 36,36, 255,255,255,8,4:pie$=CHR$(145)+ 


CHR$(145)+CHR$ (145) 


398 SYMBOL 129, 63,127,255, 127,63,9,6,8 
499 SYMBOL 179,9,9,255,0,8,9,0,8:1b$=CHR$(179)+CHR$(178 


1+CHR$ (178) 


419 SYMBOL 138,252,254,255,254,252,8,9,9:bar$=CHR$ (129) 


+CHR$(127)+CHR$ (138) 


428 tr$=CHR$(22)+CHR$ (1) :nr$=CHR$(22)+CHR$ (9) 
438 coui$=CHR$(15)+CHR$(1):cou2$=CHR$(15)+CHR$ (2) :cou3$ 
=CHR$(15)+CHR$ (3) :cou4$=CHR$ (15) +CHR$ (8) 


448 re$=CHR$(8):de$=CHR$(18) 
458 ci$=CHR$(143):c$=tr$tcou4$tci$ 
469 b$=tr$+cou3$+bo$ 


478 bah$=tr$+cou2$tbar$+re$tre$+re$+coui$+]b$ 
488 bahi$=tr$tcou2$+bar$tre$tre$tre$+cou3$+1b$ 
498 cer$=tr$tcou2$+tcer1$tre$+cou3$+cer2$ 


598 bot$=tr$+cou2$+bt$ 
518 px$=tr$tcou3$tpies 


524 ON ta GOTO 649,658,669,539,549,559,569,578,589, 599, 
680,619,629,639,678,689, 695, 789, 719, 728 


539 RESTORE 1269:GOSUB 748:G0T0 1289 
549 RESTORE 1969:G0SUB 749:G0T0 1288 
559 RESTORE 1939:GOSUB 749:G0T0 1289 
568 RESTORE 1998:GO0SUB 749:G0T0 1288 
579 RESTORE 1929:GOSUB 748:G0T0 1289 
588 RESTORE 1128:G0SUB 749:GOT0 1288 
59ÿ RESTORE 994 :GO0SUB 749:G0T0 1288 

699 RESTORE 949:GOSUB 748:G0T0 1289 

619 RESTORE 929:GOSUB 749:G0T0 1288 

629 RESTORE 879:GOSUB 748:G0T0 1289 

639 RESTORE 869:G0SUB 749:G0T0 1288 

649 RESTORE 1788:GO0SUB 749:GO0T0 1288 
659 RESTORE 1899:GOSUB 749:GO0TO 1289 
669 RESTORE 1828:GO0SUB 749:G0T0 1288 
679 RESTORE 919:GOSUB 749:G0T0 1288 

689 RESTORE 999:GOSUB 748:G0T0 1289 

699 RESTORE 938:GO0SUB 749:G0T0 1288 

788 RESTORE 1168:GO0SUB 749:GO0T0 1288 
719 RESTORE 1289:GOSUB 748:G0T0 1289 
728 RESTORE 1239:GO0SUB 749:G0T0 1288 
738 END 

749 DIM j(49,25) 

759 

769 READ t,q,w 

7179 INK 9,8:INK 1,8:INK 2,8:INK 3,8 

788 READ x,y,a 


198 IF a=2 THEN LOCATE x,y:PRINT bahi$:j(x,y}=2 
889 IF a=1 THEN LOCATE x,y:PRINT bah$:j(x,y)=1 
819 IF a=5 THEN LOCATE x,y:PRINT bot$:j(x,y)=5 
829 IF a=4 THEN LOCATE x,y:PRINT cer$:jlx,y)=4 
639 IF a=9 THEN LOCATE x,y:PRINT px$:j(x,y)=9 


848 IF a=-1 THEN RETURN 
854 GOTO 788 


)VG 
)YK 


)EB 
JLU 


)YE 


DMC 
)GJ 


)WA 
BF 
)PL 
)PL 
)QJ 
)JH 
)RR 
RF 
)2Y 


)DY 
>DX 
DV 
)DC 
)DW 
)DY 
)DA 
CV 
)CU 
CZ 
)CZ 
DH 
)DB 
JDE 
)CZ 
C2 
)CD 
DD 
DR 
)D4 
)TD 
JXK 
)TC 
DVD 
AC 
UF 
>QV 
>PP 
)PC 
>PP 
NF 
)RR 
AE 


869 DATA 6,4,4,3,8,1,6,18,1,9,6,2,9,17,1,12,19,1,15,5,1 DPR 


,18,7,1,24,11,1,24,7,1,24,15,1,24,19,1,27,21,1,21,11,2, 
15,21,9,21,28,9,21,16,9,22,14,5,19,13,4,13,18,4,25,6,4, 


25,19,4,25,14,4,25,18,4,-1,-1,-1 








879 DATA 7,4,3 DL 
888 DATA 3,5,1,3,9,2,3,13,1,3,17,9,6,8,1,6,16,1,0,8,2,0 XE 
112,1,9,10,2,0,24,9, 12, 18,1,15,9,2,15,13,9,15,21,0, 18,8 
1,21,11,2, 21,14, 2,21,18,1,21,29,9, 24, 12,2, 27,6, 1 

899 DATA 19,18,5,27, 13,2, 27, 17,2,27,21,1,4,3,4,19,16,6, DK 
7,14,8,7,5,4,16,5,4,19,3,4,28,15,4,-1,-1,-1 

985 DATA 5,4,29,3,21,1,7,15,4,19,19,4,13,8,4,12,5,1,15, DQC 
8,2,15,12,1,19,5,4,29, 22,4,-1,-1,-1 

919 DATA 6,4,2,16,13,5,3,21,1,3,13,2,3,8,2,6,23,9,9,14, DYU 
9,12,6,1,27,5,1,18,19,1,24,9,2,27,9,1,24,13,1,21, 13, 2,2 
7,13,2,27,18,1,7,6,4,19,9,4,7,16,4,22,4,4, 19,16, 4, 15,21 
,1,21,21,1,15,16,9,28,11,4,-1,-1,-1 

929 DATA 5,4,3,28,7,5,3,22,1,6,28,9,3,16,1,6,12,2,9,17, XKH 
1,3,7,2,12,7,1,21,7,2,15,14,9,27,11,2,24, 18,9, 7,9,4,13, 
11,4,7,15,4,22,18,4,22,15,4,18,23,1,-1,-1,-1 

938 DATA 6,4,5,3,23,1,28,21,4,6,19,1,9,15,2,9, 22, 1,12, 1 DVD 
8,2,21,14,1,15,8,1,18,19,9,7,18,4,24, 23,9, 24, 7,9,9,8,9, 
24,12,1,27,18,2,12,13,9,19,5,4,16,14,4,19,17,4,25,15,4, 
15,23,1,27,23,1,-1,-1,-1 

949 DATA 7,4,4 »J 
958 DATA 3,8,1,3,15,1,6,11,2,6,19,1,12,6,1,3,23, 2,9,15, DMF 
1,12,17,2,18,6,1,27,6,1,15,19,1,21, 23,1, 18, 11,2, 21, 17,2 
,24,12,2 

965 DATA 12,22,9,15, 12,9, 27, 22,9, 24, 7,9 >DP 
979 DATA 25,9,5,13,13,4,7,6,4,13,8,4,22,6,4,25,15,4,4,1 DUR 
8,4,28,12,4 

988 DATA -1,-1,-1 >DD 
90ÿ DATA 7,4,4 XD 
1898 DATA 3,18,1,6,8,2,9,12,2,6,16,2, 12,18, 2,9, 18, 1,3,2 DVC 
1,1,15,7,1,15,14,2,15,23,1,21,9,1, 27, 7,2,21, 23, 2, 27, 23, 
1,12,21,9,24,21,9,18, 12,9 

1919 DATA 19,7,5,7,5,4, 25,16, 4, 22, 12,4,4, 16,4, 19,16, 4,2 )ŸE 
5,7,4,16,11,4,-1,-1,-1 

1829 DATA B,4,4,25,7,5,3,21,1,6,17,1,9,15,1,12,13,1,15, GC 
11,1,18,9,1,21,7,1,27, 23,1, 27,6, 2, 21, 15,2, 18, 17,2, 15, 19 
,2,12,21,2,21,19,9,24,13,9,9,8,9,7,8,4,18, 16,4, 13, 14,4, 
16,12,4,19,19,4,22,8,4,25,19, 4,29, 17,4,-1,-1,-1 

1835 DATA 7,4,4 >Q 
1849 DATA 13,18,5,15,23,1,7,12,4,18,17,4,13,14,4,16,11, )2J 
4,19,14,4,22,17,4,25,5,4,3, 22, 1,12, 20,9, 18,29,9,27, 23,1 


1958 DATA -1,-1,-1 LG 
1869 DATA B,4,4 YQE 
-1979 DATA 7,11,5,3,9,1,6,7,2,9,7,2,12,7,2,15,7,1,19,9,4 DPN 
,18,7,2,12,16,1,6,14,2,9,17,2,6,18,9,15,18,9,27,22,1,24 
,16,9,16,5,4,13,13,4,19,8,4,25,13,4,22,15,4,16,11,4,18, 
23,9, 19,24,4 
1889 DATA -1,-1,-1 DLK 
1999 DATA 8,4,4 >QH 
1198 DATA 3,13,1,9,7,1,18,7,1,27,13,1,6,21,1,24,21,1,6, DPH 
13,2,9,13,2,12,13,2,15, 13,2, 18,13, 2,21,13,2,27,23,9,24, 
23,9,21,23,9,9,23,9,6,23,9,3,23,9,7,8,4,19,9,4 
1118 DATA 13,7,5,16,5,4,28,8,4,22,19,4,28,17,4,22,17,4, DPR 
18,16,4,-1,-1,-1 
1128 DATA 19,4,4 DV] 
1139 DATA 3,8,1,6,8,2,9,8,1,12,8,2,18,8,1,21,8,2,24,8,2 DRJ 
127,12,1,24,12,1,21, 12,2, 18, 12,2, 15,12,1,3,12,2,6, 12,1, 
3,16,1,6,16,2,9,16,1,12,16,2,15,16,1,21,16,1,24,16,2,27 
,16,1,3,23,1,6,23,1,9,23,1,12,23,2,15,23,1 


1148 DATA 13,19,5,18,23,1,21,23,2,24,23,2,27,23,1,7,4,4 >VG 
,13,4,4,28,4,4,4,18,4,19,19,4,7,14,4,28,14,4,4,18,4,25, 
18,4,13,18,4 


1158 DATA -1,-1,-1 >LH 
1169 DATA 12,4,4 )XE 
1179 DATA 3,23,1,3,19,2,3,14,1,3,19,2,3,6,1,9,6,2,9,19, DGV 
1,9,14,2,9,19,1,15,6,1,15,19,2,15,14,1,15,19,2,21,6,2,2 
7,6,1,21,19,1,21,19,1,15,23,1,9,23,2,21,14,2,21,23,2,27 
,18,2,27,19,2,27,14,1,27,23,1 

1189 DATA 28,21,4,25,18,4,19,18,4,13,18,4,7,18,4,19,12, DKX 
4,16,12,4,22,12,4,16,4,4,28,8,4,13,19,4,19,19,4 

1198 DATA -1,-1,-1 >LH 
1299 DATA 19,4,4 WH 


1218 DATA 25,19,4,25,14,4,3,29,1,7,4,4,7,19,4,12,23,1,6 DHC 
,13,9,6,7,9,18,23,1,19,18,4,19,7,4,16,4,4,16,19,4,15,7, 
9,25,4,4,24,13,9,24,7,9,27,19,1,9,16,1,16,18,4,18,16,1 


1229 DATA -1,-1,-1 )LF 
1238 DATA 7,4,4 )QC 
1249 DATA 3,11,1,6,23,1,28,17,4,26,15,4,22,13,4,19,11,4 )JD 
,16,9,4,13,7,4,18,23,1,12,19,9,24,22,9,13,12,4,12,5,2,2 
1,12,2 

1259 DATA -1,-1,-1 )LJ 
1269 DATA 19,4,18 )DF 
1279 DATA 3,24,1,6,22,1,9,28,1,27,24,1,24,22,1,21,29,1, DUN 
12,18,1,18,18,1,15,16,2,15,24,1,6,15,2,24,15,2,12,11,1, 
18,11,1,15,6,2,16,3,4,7,11,4,16,8,4,16,13,4,25,11,4,13, 
29,4,19,28,4,13,14,4,19,14,4,28,19,4,9,12,3,21,12,3,-1, 
1,51 

1288 BORDER B:INK 9,D:1INK 1,26: INK 2,11:INK 3,6 MH 
1299 )YE 
1399 v=u-L:LOCATE q,w:PRINT b$:FOR i=1 TO 5O:NEXT i:LOC DV 
ATE q,u:PRINT c$ 

1319 )XH 
1329 IF INKEY(1)#INKEY(75)=$ THEN q=q+3:1F q»29 OR j(q >QA 


-1,w)=1 OR j(q-1,w)=2 OR j(q-1,w)=9 THEN q=q-3:G0SUB 15 
99:GOSUB 1764:G0T0 1378 

1339 IF INKEY(8)*INKEY(74)=9 THEN q=q-3:1F qéi DR j(q-1 OMR 
,W)=1 OR j(q-1,w)=2 OR j(q-1,w)=9 THEN q=q+3:GOSUB 1598 
:GOSUB 1778:G0T0 1379 


1349 IF INKEY(47)#INKEY(76)=9 THEN GOTO 1479 >LK 
1359 IF w=u+i THEN w=u-1:LOCATE q,w:PRINT b$:FOR i=1 TO >NN 
SY:NEXT i:LOCATE q,u:PRINT cé 

1368 ? y 
1379 w=u+l )NA 
1389 1F w)=25 THEN CLS:GOTO 1749 )ZV 
1398 ? YF 
1499 IF j(q,w)=5 THEN v=v+1:GOSUB 1619:G0SUB 229 )Q 
1419 IF jCq-1,w)=2 THEN GOTO 1798 >2F 
1429 IF j(q,w)=4 THEN GOSUB 1639 )YP 
1439 LOCATE q,w:PRINT b$:FOR i=1 TO 45:NEXT i:LOCATE q, DMR 
W:PRINT c$ 

1448 IF j(q-1,w+1)1=9 THEN BORDER 8:CLS: INK 9,9: INK 1,9: DZ 


INK 2,9: INK 3,8:GO0T0 1728 
1459 IF jCq-l,w+1)=1 THEN w=w:GOSUB 1589:GO0T0 1299:ELSE DKD 
GOTO 1379 


1469 GOTO 1378 >MK 
1479 w=w-1 )ND 
1488 LOCATE q,w:PRINT b$:FOR i=1 TO 45:NEXT i:LOCATE q, DMX 


W:PRINT c$ 


1498 IF INKEY(1)#INKEY(75)=8 THEN q=q+3:1F q)29 OR j(q- NE 





1,w)=1 OR j(q-1,w):2 OR j(q-1,w)=9 THEN q=q-3:GOSUB 159 
S:GOSUB 1769:G0T0 1378 

1589 IF INKEY(8)#INKEY(74)=8 THEN q=q-3:1F qé=1 OR j(q- DNE 
1,w)=1 OR j(q-1,w)=2 OR j(q-1,w)=9 THEN q=q+3:GOSUB 159 
#:GOSUB 1778:G0T0 1378 

1519 IF INKEY(73)#INKEY(2):9 THEN 1379 

1529 IF j(q,w-1)=1 OR j(q,wu-1)=2 OR j(q,w-1)=9 THEN GOS 
UB 1599:G0T0 1379 


)ÉE 
>RN 


1538 IF ucn2 THEN weutitCOSUB 1509:G0T0 1378 )LJ 
1549 IF j(q,w-1)=4 THEN GOSUB 165 > AU 
1558 IF j(q,w-1)=5 THEN v=v+{1:GOSUB 1629:G0SUB 228 )TV 


1569 IF j(q-1,w-1)=1 OR j(q-1,w-1)=2 OR j(q-1,w-1)=9 TH 
EN GOSUB 1598:G0T0 1379 


)ZR 


1578 GOTO 147 >NC 
1588 SOUND 1,113,3,1,1,3:RETURN DEN 
1599 SOUND 1,698, 15:RETURN AT 
1689 SOUND 1,2588, 15:RETURN JWH 
1618 SOUND 1,15,25,15,1,15:j(q,w)=9:RETURN KL 
1628 SOUND 1,15,25,15,1,15:j(q,w-1)=9:RETURN MR 


1638 SOUND 1,79,18:j(q,w)=g:tt=tt#1:C=C+19:SC=SC+C:tp=t DTZ 
ptc:c=#:GOSUB 219:1F tt=t THEN GOSUB 1665:CLS:ERASE j:t 
a=tati:IF ta>29 THEN GOTO 2129:ELSE tt=B:tp=9:GOSUB 238 
:GOTO 529:ELSE RETURN 

1649 SOUND 1,79,18:j(q,w)=Btt=tt+1:C=C+1fios=cs+Citp=t 
pte:c=#:G0SUB 279:1F tt=t THEN GOSUB 1665:CLS:ERASE j:a 
tsat+{:IF at>29 THEN GOTO 2128:ELSE tt=9:tp=9:GOSUB 29ÿ 
:GOTO 2189:ELSE RETURN 

1659 SOUND 1,79,19:jlq,u-1)=@:tt=tt+1:C=C+18:SC=SC+C:tp DXH 
=tptc:c=f:G0SUB 219:1F tt=t THEN GOSUB 1665:CLS:ERASE j 
tta=ta+i:IF ta»29 THEN GOTO 2129:ELSE tt:ÿ:tp=9:GOSUB 2 
39:G0T0 529:ELSE RETURN 

1669 SOUND 1,79,19:jtq,u-1)=@:tt=tt+1:C=Ctif:cs=cstC:tp DAV 
stpte:c=9:GOSUB 279:1F tt=t THEN GOSUB 1665:CLS:ERASE j 
tat=at+1:IF at»29 THEN GOTO 2129:ELSE tt=ÿ:tp=#:GOSUB 2 
98:G0T0 2188:ELSE RETURN 

1665 ENT 1,28,-6,1,1,129, 1,29, -3,1,49,3,1:SOUND 1, 119,8 OTB 
1,15,,1:FO0R i=1 TO 15:NEXT i :RETURN 

1679 FOR i={ TO 5S9:NEXT i:LOCATE q,u:PRINT c$:RETURN EL DMX 
SE RETURN 

1688 RETURN )FJ 
1699 SOUND 1,3598,15,1,1, t:RETURN BC 
1798 FOR n=258 TO { STEP -28:SOUND 5,n,2.5,15:NEXT:G0TO DDK 
1379 

1719 FOR n=259 TO 1 STEP -29:SOUND 5,n,2.5,15:NEXT:v=w+ MU 
1:GOTO 247$ 

1728 FOR n=189 TO 1599 STEP 58:SOUND 5,n,1.5, 15:NEXT:SC DGU 
=6C-TP:tp=9:tt=9:GOSUB 219:V=V-1:GOSUB 229:ERASE j:IF v 

{1 THEN sc=ÿ:ta=1:v=3:GOSUB 219:G0SUB 229:GOSUB 238 

1722 IF jo=1 THEN GOTO 528:ELSE GOSUB 2799:G0T0 2188:EL >CF 

SE GOSUB 2798:G0T0 2188 

1738 FOR n=199 TO 1599 STEP 59:SOUND 5,n,1.5,15:NEXT:cs BR 
=cs-TP:tp=8:tt=#:GOSUB 279:V1=V1-1:GOSUB 289:ERASE j:1F 
vi<{ THEN cs=ftat=1:v1=3:G0SUB 278:G0SUB 289:GO0SUB 294 
:GOSUB 2718:G0T0 528:ELSE GOSUB 2718:G0T0 528 

1748 FOR n:1599 TO 59 STEP -59:SOUND 5,n,1.5,15:NEXT:SC >GY 
=6C-TP:tp=8:tt=8:G0SUB 219:V=V-1:GOSUB 228:ERASE j:1F v 

€ THEN sc:f:tazt:v=3:G0SUB 219:G0SUB 229:G0SUB 238 

1742 IF jo=1 THEN GOTO 529:ELSE GOSUB 2784:G0T0 2189:EL CH 


VE 


SE GOSUB 27#8:GO0T0 2188 

1759 FOR n:1599 TO 59 STEP -5B:SOUND 5,n,1.5,15:NEXT:cs DBV 
zcs-TP:tp=#:tt=#:GOSUB 279:V1=V1-1:GOSUB 289:ERASE j:1F 
vi<1i THEN cs=f:at={:v1=3:G0SUB 279:GOSUB 288:GOSUB 299 
:GOSUB 2719:G0T0 528:ELSE GOSUB 2719:GO0T0 529 

1768 q=q+l:LOCATE q,w:PRINT b$:FOR i=1 TO SB:NEXT i:LOC DYU 

ATE q,w:PRINT c$:q=q-1:LOCATE q,u:PRINT b$:FOR i=1 TO 5 

#S:NEXT i:LOCATE q,w:PRINT c$:RETURN 

1779 q=q-1:LOCATE q,u:PRINT b$:FOR 1=1 TO 58:NEXT i:LOC 

ATE q,w:PRINT c$:q=q+1:LOCATE q,w:PRINT b$:FOR i=1 TO 5 

S:NEXT i:LOCATE q,w:PRINT c$:RETURN 

1788 DATA 9,28,3,4,4,5 

1799 DATA 21,24,2,15,22,2,9,29,2,3,18,2,6,24,1,12,24,3, 
24,23,3,27,22,1,12,17,1,6,13,1,3,9,2,9,19,2,9,5,1,18,11 
»121,15,3,18,24,1,7,6,4,19,13,4,4,14,4,16,18,4,22,11,4 
,25,15,4,22,18,4,18,7,4,19,19,4,-1,-1,-1 

1899 DATA 9,4,4 0H 
1819 DATA 3,24,1,7,29,4,19,6,4,9,24,1,13,29,4,16,8,4,15 DRK 
,24,1,19,29,4,21,24,1,25,29,4,22,8,4,9,7,2,15,7,2,21,7, 
2,13,7,4,19,7,4,9,13,3,15,13,3,21,13,3,-1,-1,-1 

1829 DATA 14,4,4 

1839 DATA 15,24,1,3,17,1,27,17,1,13,29,4,19,16,4,13,14, 
4,19,19,4,13,7,4,19,29,4,22,16,4,19,14,4,22,18,4,19,7,4 
1712,4,25,12,4,25,7,4,7,7,4,9,15,3,21,15,3,-1,-1,-1 
1848 MODE 1:1INK 9,9:INK 1,13:INK 2,13:INK 3,13:BORDER 9 DCE 
:CLS 

1859 VINDOW 1,48,6,25:CLS DUJ 
1869 TAG:MOVE 299,356, 2,3:PRINT"REMAKE & PYMBU"; :MOVE 2 DEE 
99,358,1,L:PRINT"REMAKE & PYMBU"; :MOVE 298,338, 2,3:PRIN 


>PN 
)LQ 


>XK 
)DB 


, 
1879 MOVE 32,398,3,3:PRINT"Ce petit jeu bien syapathiqu )KK 
e vous"; :MOVE 32,382,1,3:PRINT"Ce petit jeu bien sympat 
hique vous"; 
1888 MOVE 32, 288,3,3:PRINT"demandera de la reflection e >BK 
t de "::MOVE 32,282, 1, 3:PRINT" demandera de la reflectio 
net de"; 
1899 MOVE 32,268,3,3:PRINT"l'habilete. 1] vous suffira d )LD 
e pren-";:MOVE 32,262,1,3:PRINT" l'habilete. Il vous suff 
ira de pren-"; 
1999 MOVE 32, 248,3,3:PRINT'dre tous les fruits qui se t )QH 
rouvent";:MOVE 32,242,1,3:PRINT'"dre tous les fruits qui 
se trouvent"; 
1919 MOVE 32,228,3,3:PRINT"dans un tableau pour passer 
au ";:MOVE 32,222,1,3:PRINT"dans un tableau pour passer 
au "; 
1928 MOVE 32, 208,3, 3:PRINT"suivant"; :MOVE 32,282,1,3:PR DZK 
INT'suivant"; 
1939 MOVE 288, 199,3,3:PRINT'UNE TOUCHE S.V.P";:MOVE 299 >ZM 
,182,1,3:PRINT"UNE TOUCHE S.V.P"; 


JUN 


1948 INK 1,26:INK 2,6: INK 3,11 WZ 
1958 CALL &BB96:TAGOFF )QG 
1969 CLS DAF 
1978 TAG:INK 9,8:INK 1,13:1INK 2,13: INK 3,13 JC 
1985 MOVE 32, 398,3, 3:PRINT"Vous dirigez une boulle qui )VH 


sautille"::MOVE 32,392,1,3:PRINT"Vous dirigez une boul] 

e qui sautille”; 

1998 MOVE 32, 288,3,3:PRINT"sur une plateforme.FIRE ou B DLT 
ARRE/ESP"::MOVE 32,282,1,3:PRINT"sur une plateforne.FIR 


E ou BARRE/ESP"; 

2889 MOVE 32, 268,3,3:PRINT'" vous fait nonter.Direction D >MB 
/G pour"; :MOVE 32,262, 1,3:PRINT"vous fait monter.Direct 

ion D/G pour"; 

2919 MOVE 32,248,3,3:PRINT"vous deplacer."::MOVE 32,242 DYY 
1, 3:PRINT'"vous deplacer."; 

2828 MOVE 32,228,3,3:PRINT"Attention certaines platefor )YF 
ses sont"::MOVE 32,222,1,3:PRINT'Attention certaines pl 
atefornes sont"; 

2839 MOVE 32,298,3,3:PRINT"poreuses.Et chaque fois que DAY 
vous"; :MOVE 32,292,1,3:PRINT"poreuses.Et chaque fois qu 
e vous"; 

2849 MOVE 32, 188,3,3:PRINT"rencontrez un obstacle, vous 
tosbez et";:MOVE 32,182, 1,3:PRINT'rencontrez un obstacl 
e,vous tonbez et"; 

2859 MOVE 32,168,3,3:PRINT"ne pouvez rien faire": :NOVE DXR 
32, 162,1,3:PRINT'"ne pouvez rien faire"; 

2866 )YA 
2879 MOVE 64,199,3,3:PRINT"JOYSTIK ou FLECHES/CLAVIER"; >KE 
MOVE 64,192,1,3:PRINT"JOYSTIK ou FLECHES/CLAVIER"; 

2988 MOVE 96,68,2,3:PRINT"PRET POUR L'AVENTURE O/N'; :M0 DFE 
VE 96,62,1,3:PRINT"PRET POUR L'AVENTURE O/N"; :TAGOFF : IN 

K 1,26:INK 2,6:INK 3,11 


)BU 


2888 1F INKEY(34)=8 THEN GOTO 2111 )AX 
2189 IF INKEY(46)=8 THEN CLS:GO0TO 1849 )ED 
2119 GOTO 2998 MC 


2111 CLS:PRINT CHR$(23)+CHR$ (1) :TAG:PLOT 98,288,3:PRINT >AY 

*COMBIEN DE JOUEUR 1/2"; :PLOT 92,282, 1:PRINT'COMBIEN DE 

JOUEUR 1/2": :TAGOFF:PRINT CHR$(23)+CHR8 (9) 

2112 IF INKEY(14)=8 THEN jo=g:t=ÿ:vi=vl:cs=cstat=l:ta=1 )ZH 

:SC=ac:V=v:C=9:TP=#:tt=8:COTO 138 

2113 IF INKEY(13):8 THEN jo=i:t=B:vi=viics=csiat=litazl 2) 

#SC=sc:V=v:C=9:TP=8:tt=9:GOTO 138 

2114 GOTO 2112 )MB 
-2128 CLS:TAG NE 

2138 MOVE 59,258,2,3:PRINT'UVOUS AVEZ REUSSI BRAVO"; :HOV DUH 

E 59,252,1,3:PRINT"VOUS AVEZ REUSSI BRAVO"; 

2149 MOVE 59,298,2,3:PRINT"UNE AUTRE PARTIE ? O/N ";:MO DHA 

VE 59,292,1,3:PRINT"UNE AUTRE PARTIE ? O/N "::TAGOFF 


2159 1F INKEY(34)=$ THEN GOTO 2111 )AU 
2169 IF INKEY(46)=9 THEN CLS:GOTO 1849 )EK 
2178 GOTO 2158 MF 


2188 ON at GOTO 2388,2319, 2329, 2199, 2299, 2219, 2229, 2239 >JG 
, 2248,2259,2269, 2276, 2288, 2298, 2339, 2349, 2358, 2368, 2370 
, 2388 


2199 RESTORE 1269:GDSUB 748:G0T0 2399 DEK 
2289 RESTORE 196#:G0SUB 749:GOT0 239ÿ )EZ 
2219 RESTORE 1939:GOSUB 749:G0TO 2399 DEX 
2228 RESTORE 1999:G0SUB 748:GOT0 2398 EE 
2239 RESTORE 1929:G0SUB 749:G0T0 2399 DEY 
2248 RESTORE 1128:G0SUB 749:GO0T0 2398 )EA 
2258 RESTORE 998:G0SUB 749:GO0T0 2398 DK 
2269 RESTORE 949:GOSUB 749:G0T0 2399 )DF 
2278 RESTORE 928:GOSUB 749:G0T0 2398 )DE 
2289 RESTORE 879:GOSUB 749:G0T0 2399 )DK 
229$ RESTORE 868:G0SUB 749:GOT0 2398 )DK 
2389 RESTORE 1789:G0SUB 749:G0T0 2398 )EK 
2319 RESTORE 1889:GDSUB 749:G0T0 2399 )ED 
2328 RESTORE 1829:G0SUB 748:GOT0 2398 )EG 


2339 RESTORE 919:G0SUB 749:GOT0 2398 )DA 
2349 RESTORE 999:GOSUB 749:G0TO 2399 >DA 
2359 RESTORE 938:G0SUB 749:GOT0 2398 )DE 
2369 RESTORE 1169:G0SUB 749:G0T0 2399 )EH 
2379 RESTORE 1289:GOSUB 749:GO0T0 2399 )ED 
2388 RESTORE 1239:G0SUB 749:GOT0 2398 )EH 
2399 INK B,9:INK 1,26:1INK 2,11:INK 3,6 >DH 
2499 w=w-1:LOCATE q,w:PRINT b$:FOR i=1 TO 5B:NEXT i:LOC >VP 
ATE q,u:PRINT c$ 

2419 >XK 
2429 IF INKEY(H)#INKEY(75)=9 THEN q=q+3:1F q»29 OR j(q QE 


-1,w)=1 OR j(q-1,w)=2 OR j(q-t,w)=9 THEN q=q-3:GOSUB 15 
9$:GOSUB 1769:G0T0 2478 

2430 1F INKEY(8)*INKEY(74)=8 THEN q=q-3:1F qéi DR j(q-1 
,W)=1 OR j(q-1,w)=2 OR j(q-1,w)=9 THEN q=0+3:GOSUB 159ÿ 
:GOSUB 1774:G0T0 2479 


2449 1F INKEY(47)#INKEY(76)=9 THEN GOTO 2598 )LR 
2459 IF w=w+i THEN w=wu-{:LOCATE q,w:PRINT b$:FOR i=1 TO >NQ 
5Y:NEXT i:LOCATE q,u:PRINT cé 

2468 ‘ )YE 
2479 w=u+l NC 
2489 IF w)=25 THEN CLS:GOTO 1759 )ZY 
2499 )YH 
2599 )XK 
2519 IF j(q,w)=5 THEN vi=vi+1:GOSUB 1619:GOSUB 288 DTF 
2529 IF j(q-1,w+t)=2 THEN GOTO 171 DAV 
2539 )YC 
2549 IF j(q,w)=4 THEN GOSUB 1649 )YV 
2558 LOCATE q,w:PRINT b$:FOR i={ TO 45:NEXT i:LOCATE q, DMW 
W:PRINT c$ 

2569 IF j(q-1,w+1)=9 THEN BORDER 8:CLS:INK 9,9: INK 1,9: DE 


INK 2,8:INK 3,9:G0T0 1738 

2579 IF jCq-t,wt1)=1 THEN w=w:GOSUB 1589:G0T0 2499:ELSE >KD 
GOTO 247$ 

2589 GOTO 2479 

2599 w=w-1 

2699 LOCATE q,w:PRINT b$:FOR i= TO 45:NEXT i :LOCATE q, 
W:PRINT c$ 


NF 
>NH 
)MR 


2619 IF INKEY(L)xINKEY(75)=8 THEN q=q+3:1F q>29 OR j(q- DNB 
1,w)=i OR j(q-1,w)=2 OR j(q-1,w)=9 THEN q=q-3:GOSUB 159 
ÿ:GOSUB 1769:GO0T0 2478 

2628 IF INKEY(B)xINKEY(74)=8 THEN q=q-3:1F q<=1 OR j(q- DPC 
1,w)=1 OR j(q-1,w)=2 OR j(q-1,w)=9 THEN q=q+3:GOSUB 159 
#:GOSUB 1779:G0T0 2478 

2639 IF INKEY(73)#INKEY(2)=8 THEN 2479 )EL 
2648 IF j(q,w-1)=1 OR j(q,u-1)=2 OR j(q,w-1)=9 THEN GDS >RV 
UB 159ÿ:G0T0 2478 

2659 IF wC=2 THEN w=w+1:GOSUB 1598:G0T0 2479 )LQ 
2668 1F j(q,w-1)=4 THEN GOSUB 1669 )AB 
2679 1F j(q,w-1)=5 THEN vi=vi+i:GOSUB 1628:G0SUB 289  DVC 
2689 IF j(q-1,w-1)=1 OR j(q-1,w-13=2 OR j(q-1,w-1)=9 TH )2Y 
EN GOSUB 1598:G0T0 2479 

2698 GOTO 2598 >PA 


2709 LOCATE#1,1,6:PAPER#1,2:PRINT#1," "TAG: MO HG 
VE 499,156,1,1:PRINT'JOUEUR 2"; :MOVE 498,158, 3, L:PRINT" 
JOUEUR 2"; :TAGOFF : RETURN 

2719 LOCATE#, 1, 16:PAPER#1,2:PRINT#1," "iTAG:M )JQ 
OVE 499,316,1,1:PRINT'JOUEUR 1";:MOVE 499,318,3,1:PRINT 
"JOUEUR 1"; :TAGOFF : RETURN 


_ 
CO 








ABONNEZ- 
VOUS ! 





Vous désirez recevoir CPC 
Infos directement chez vous et 
être certain de l'avoir à 
disposition. 


Comment avoir CPC Infos 
chez votre marchand de jour- 
naux ? 

Simple. S'il ne le reçoit pas, 
demandez-lui d'intervenir 
auprès des NMPP afin qu'il 
dispose du service. Pour ce 
faire, indiquez-lui le titre CPC 
Infos, le prix 26 F et la coaifi- 
cation des NMPP : M2604. 
Cette codif est inscrite dans 
le code barre sur la couvertu- 
re. 


De CL EE EE EEE EEE EEE EEE EEE EEE 


OUI 


11 numéros 


253F 


+ 88F de port 





je désire m'abonner à CPC infos et recevoir directement 
} chez moi 11 numéros au prix de 253 F + 88 F de port. 





























Nom : Prénom : 
Adresse : 
Code postal : Ville : 
Date : Signature 
obligatoire 
Je règle 341F par : 
Q chèque Q mandat NOUVEAU 
| Re Zines PAYEZ AVEC 
Q carte bancaire Date d'expiration VOTRE 
CARTE 
ASC NL D lité BANCAIRE 
ATTENTION ! 
e Les abonnements ne sont pas rétroactifs SEUL CE BULLETIN 
e Envol par avion, nous consulter. D'ABONNEMENT 
EST VALABLE 


Envoyez votre bulletin accompagné du règlement à : 
Editions SORACOM - Service abonnement - BP 88 - 35170 BRUZ 


R 
+ 
z 
& 
[s] 


Gérard COHEN 
Valable pour CPC 464 - 664 - 6128 





Un Rubik's cube à plat, c'est ce que vous propose 13 Colors. 
Il s'agit de faire disparaître les 9 carrés de couleur en agissant sur les rangées, 
les colonnes et les diagonales du tableau de jeu. 
Il y a 10 niveaux différents puisque vous pouvez avoir de 3 à 13 couleurs différentes. 
Le mode d'emploi est inclus dans le jeu. 
Le programme se nomme 13COLORS.BAS. 





® 79 LOCATE 8,25:PRINT CHRS(143) :LOCATE 12, 25:PRINT CHRS( DEF 
143) 
1 JSCOLORS.BAS 88 k$=INKEYS:IF k$="" THEN Bÿ >uH 
CU'RELEEEEEEEEEEEE >LJ 
199 HODE L:CLS:PEN 3:PRINT" LES 13 COLORS":PEN DUL 
ARE ZETEELTCTFEICETEETIETEIZIILE )FA L:PRINT:PRINT 
2 1x x >FB | 118 PRINT"Le but du jeu est de changer les 8 car DKD 
3 ‘x G{rard COHEN 4 Fc | r{s de diffirentes couleurs, afin de faire dispar 
&'x : »Fp | aitre la totalit{ de l'ecran. 
5x LES 4 FE | 129 PRINT:PRINT"- Pour changer les teintes utilisez :" PB 
6 'x * »FF | 139 PEN 2:PRINT"{-2-3";:PEN f:PRINT" pour les lignes h )DP 
T'# 13 CODLORS x >FG | orizontales" 
"x x »F | 149 PEN 2:PRINT"4-5-6";:PEN {:PRINT" "1 y DPE 
CRAETCTTETTENTEZFEPES SES SEZSSESSE) >FJ erticales" 
18 MODE 9:BORDER 9: INK 9,0:1NK 1,21:INK 2,16:INK 3,11,7 DXT | 159 PEN 2:PRINT"7-8 ";:PEN 1:PRINT" 7! doND 
iagonales" 
28 LOCATE B,L:PRINT CHR$(143) :LOCATE 12,1:PRINT CHR$(14 DCC | 169 PEN 2:PRINT"9 ";:PEN 1:PRINT" ABANDON et retour JKN 
3) eg" 
38 LOCATE 1,5:PRINT CHR$(143):PEN 2:LOCATE 6,5:PRINT" G >GD | 179 PRINT:PRINT:PEN L:PRINT"-Les niveaux sont de 3 @ 13 BR 
ERARD":PEN 3:LOCATE 29,5:PRINT CHR$(143) couleurs" 
48 LOCATE 1,18:PRINT CHR$(143):PEN 1:LOCATE 6,19:PRINT" RP | 169 PRINT"A chaque coups d'un chiffre le carre  chang JE 
presente":PEN 3:LOCATE 29, 18:PRINT CHR$(143) e @ la couleur suplrieur de celle initiale." 
54 LOCATE 1,15:PRINT CHR$(143):PEN 2:LOCATE 8,15:PRINT" DEX | 199 PRINT >PC 
LES":PEN 3:LOCATE 29,15:PRINT CHR$(143) 299 PRINT" BONNE CHANCE ” )LA 
64 LOCATE 1,29:PRINT CHR$(143):PEN 2:LOCATE 5,29:PRINT" px à 219 PRINT" et PATIENCE" )6T 
À 229 PEN 3:PRINT:PRINT" TAPEZ UNE TOUCHE... ” >RB 


13 COLORS":PEN 3:LOCATE 29,29:PRINT CHR$(143) 


238 K$=INKEYS 
249 IF K$="" THEN 239 


PT RRETTEZEEZTENTESEELETISELEIIIIITI IE 
498 MODE G:BORDER B:INK 9,9 
588 LOCATE 2,15:PRINT"NOMBRE DE COULEURS" :LOCATE 5,28:1 )76 


NPUT*( 3 @ 13)";N 


519 IF N€3 OR N>13 THEN PRINT CHR$(7):GOTO 588 
528 IF N=3 THEN INK 8,8:INK 1,2:INK 2,16:INK 3,18:N=3 
538 IF N=4 THEN INK 9,9:INK 1,2:INK 2,16:INK 3,18:INK 4 DEL 


,15:N=4 


548 IF N=5 THEN INK #,9:INK {,2:INK 2,16:INK 3,18: INK 4 DPU 


,15: 


558 IF N=6 THEN INK #,9:INK 1,2:INK 2,16:INK 3,18:INK 4 BG 


,15: 


569 IF N=7 THEN INK 9,0:INK 1,2:INK 2,16: INK 3,18:INK 4 DND 
INK 5,6: INK 6,13:INK 7,17:N:7 

579 IF N=8 THEN INK 9,0:INK 1,2:INK 2,16:INK 3,18: INK 4 >CG 
INK 5,6:INK 6,13:INK 7,17:INK 8,21:N=8 

IF N=9 THEN INK 9,0:INK 1,2:INK 2,16:INK 3,18:INK 4 DPR 
INK 5,6:INK 6,13:INK 7,17:INK 8,21: INK 9,5:N-9 

IF N=14 THEN INK 8,8:INK 1,22 INK 2,16:INK 3,18:INK JT 
4,152 INK 5,6: INK 6,13: INK 7,17:INK 8,21: INK 9,5:INK 18, 


,15! 


,15: 
58ÿ 
15? 
59ÿ 


12:N 


699 IF N=11 THEN INK 9,8:INK 1,2:INK 2,16:INK 3,18:INK )CH 
4,15:INK 5,6:INK 6,13:INK 7,17:INK 8,21:INK 9,5:INK 19, 


INK 5,6:N=5 


INK 5,6:INK 6,13:N=6 


=18 


12:INK 11,11:N=11 


619 IF N=12 THEN INK 8,9:INK 1,2:INK 2,16:INK 3,18:INK DUH 
4,15:INK 5,6: INK 6,13:INK 7,17:INK 8,21:INK 9,5:INK 19, 
12:INK 11,11:INK 12,7:N=12 

629 IF N=13 THEN INK 8,9:INK 1,2:INK 2,16:INK 3,18:INK NW 
4,15:INK 5,6:INK 6,13:INK 7,17:INK 8,21:INK 9,5:INK 18, 
12:INK 11,11:INK 12,7:INK 13,29:N=13 


988 CLS 


1998 
1819 
1929 
1935 
1948 
1959 
1969 
1978 
1989 
1998 


3899 COA=INT(RND&N) :PEN COA:LOCATE 5,5:PRINT A$ 
3419 COB=INT(RND4N) :PEN COB:LOCATE 7,5:PRINT B$ 
3929 COC=INT(RNDXN) :PEN COC:LOCATE 9,5:PRINT C$ 
3438 COD=INT(RND4N) :PEN COD:LOCATE 5,18:PRINT D$ 
3949 COE=INT(RND&N) :PEN COE:LOCATE 7,19:PRINT E$ 
3458 COF=INT(RND4N) :PEN COF:LOCATE 9,18:PRINT F$ 
3969 COG=INT(RNDAN) :PEN COG:LOCATE 5, 15:PRINT G$ 
3878 COH=INT(RNDAN) :PEN COH:LOCATE 7,15:PRINT H$ 
3989 COI=INT(RND4N) :PEN COI:LOCATE 9,15:PRINT 1$ 


4960 


4919 K$=INKEY$:IF K$="" THEN 4919 


4915 


4929 IF K$="1" THEN COA=COA+1:C0B=COB+1:C0C=C0C+1:G0T0 DEA 


4999 
4939 
4998 


GOSUB 528 

A$=CHR$(143) 
B$=CHR$ (143) 
C$=CHR$ (143) 
D$=CHR$ (143) 
E$=CHR$ (143) 
F$=CHR$(143) 
G$=CHR$ (143) 
H$=CHR$ (143) 
I$=CHR$ (143) 


DTETEEIEEEEE SE) 


PO=PO+1:GOSUB 5298 


<< 


)PJ 
MF 
RH 
UF 


DMC 
UM 


TH 
)TP 
)XG 
)ZR 
RG 





IF K$="2" THEN COD=COD+{:COE=COE+1:COF=COF+1:G0T0 DEX } 


4949 
499ÿ 
4959 
4999 
4969 
4999 
4978 
4999 
4971 
4999 
4972 
4999 
4888 
1999 
4198 
4119 
4129 
4139 
4149 
4159 
4169 
4179 
4189 


IF K$="3" THEN C0G=COG+1:COH=COH+1 :CD1=COI +1 :GOTO 
IF K$=*4" THEN C01=CO1+1:COF=C0F+1 :CDC=COC+1 : GOTO 
IF K$="5" THEN COH=COH+1:COE-C0E+1 :COB=COB+1 : GOTO 
IF K$="6" THEN C0G=COG+1:COD=C0D+1 :CDA=COA+{ : GOTD 
IF K$="7" THEN C01=C01+1:CO0E=C0E+1 :CDA=COA+ 1 : GOTO 
IF K$="8" THEN COG=C0G+1 :COE=CDE+1 :CDC=COC +1 :GOTO 


IF K$="9" THEN PO=8:G0TO 499 
IF COAN THEN COA=9 

IF COB>N THEN COB=ÿ 

IF COC>N THEN COC=ÿ 

IF COD>N THEN COD=ÿ 

IF COEDN THEN C0E=8 

IF COF3N THEN CÜF=8 

IF COG>N THEN COG=È 

IF COHDN THEN COH=$ 

IF COIN THEN C01=ÿ 

IF COA=8 AND COB:ÿ AND COC=8 AND COD=ÿ AND COE=ÿ À 


ND COF=# AND COG=8 AND COH=9 AND C01=9 THEN LOCATE 5,22 
:PRINT PO; "COUPS" :GOTO 7998 


5509 


5819 PEN COA:LOCATE 5,5:PRINT A$ 

5828 PEN COB:LOCATE 7,5:PRINT B$ 

5838 PEN COC:LOCATE 9,5:PRINT C$ 

594g PEN COD:LOCATE 5,19:PRINT D$ 

5959 PEN COE:LOCATE 7,19:PRINT E$ 

5969 PEN COF:LOCATE 9,19:PRINT F$ 

5879 PEN COG:LOCATE 5,15:PRINT G$ 

5988 PEN COH:LOCATE 7,15:PRINT H$ 

5499 PEN COI:LOCATE 9,15:PRINT 1$ 

5199 GOTO 4919 

5298 YRAEKAEENENNENRENEENEUX 

5218 MODE 9:INK 14,26::PEN 14:LOCATE 11,5:PRINT CHR$(24 
FPE de 

522ÿ LOCATE 11,19:PRINT CHR$(242);% 2" 

5238 LOCATE 11,15:PRINT CHR$(242);" 3" 

5248 LOCATE 5,18:PRINT CHR$ (248) :LOCATE 5,29:PRINT"6" 
5259 LOCATE 7,18:PRINT CHR$(249) :LOCATE 7, 28:PRINT"5" 
526$ LOCATE 9,18:PRINT CHR$(248) :LOCATE 9,29:PRINT"4" 
5278 LOCATE 11,18:PRINT CHR$(295):LOCATE 12,28:PRINT"7" 


5284 LOCATE 3,18:PRINT CHR$(294) :LOCATE 2,29:PRINT"8" 

5285 PEN 2:LOCATE 3,24:PRINT"O = ABANDON" 

5299 PEN 1:PRINT CHR$(7):LOCATE 2,1:PRINT'No de COUPS " 
;PO:RETURN 

NT ARETEZTETPEZTTELIITI ETES 

7818 CLS 

7828 FOR S=28 TO 588 STEP 5:SOUND 1,S,1:INK 14,2,25:PEN 
14:LOCATE 5,18:PRINT"B R A V O":NEXT S 

7838 PEN 2:LOCATE 2,28:PRINT"VOUS AVEZ GAGNE EN" 

7949 LOCATE 5,22:PRINT PO;"COUPS" 

7858 PEN L:LOCATE 1,23: INPUTUNE AUTRE (O/N) ":A$ 

7968 IF A$="0" OR a$="o" THEN RUN ELSE CLS:LOCATE 5,15: TL 

PRINT"AU REVOIR....":PRINT:PRINT:PRINT:PRINTO 


)EU 
)EH 
)ED 
)EZ 
)EH 
DEK 


)2D 
)RH 
)RB 
RE 
RH 
)RL 
>RP 
*AT 
> RH 
RZ 
VD 


>XH 
AE 
>AK 
)AQ 
>AX 
AC 
> AR 
>BD 
)BJ 
>BP 
)LJ 
>XK 
>FF 


EM 
)EV 
DYK 
>YP 
DYU 
)AN 


)YL 
>KU 
)TQ 


DXK 
>ZH 
)BC 


>UH 
BE 
UD 


Une affaire pour VOLE TEL 


LOTS d'anciens numéros, des dizaines 
d'articles et de programmes. 
5 N° d'Amstar & CPC 


année 90 

20 F + 30 F de port par lot 
5 N° d'Amstar 
années 88 à 90 

20F + 20F de port par lot 


5 N° Hors-série CPC 


années 87 à 90 
20F + 15F de 
port par lot 


CN TON: 


IKKelelife[:à los en solde. 


css 


on de commande Nom : Prénom : 


I J | 
j e commande Adresse : 





I 

. I 

"| | Code postal : Ville : "| 
Q 5 numéros de CPC Hors-série pour 20F + 15F de port Date : 

I e: = Signature I 

: Q 5 numéros de Amstar & CPC pour 20 F + 30F de port 
Q 5 numéros d'Amstar pour 20F + 20F de port JE REGLE PAR CARTE BANCAIRE 
Leon is 

di e joins mon règlement chèque bancaire Q I 

I chèque postal Q mandat Q Date d'expiration 1 | 1 | Signature I 

Î 





L- Retournez ce coupon, accompagné de votre chèque libellé à l'ordre des Editions SORACOM - La Haie de Pan - 35170 BRUZ 






l'est difficile de taper un programme 

d'une revue sans commettre d'er- 
reurs | Quand les erreurs sont signalées 
(Syntax error in... Lines does not exist 
in...), la correction est facile puisque 
la ligne est indiquée, mais lorsqu'au 
“point de vue” du CPC, le programme 
est correct, il peut en être tout autre- 
ment pour le lecteur. 
Si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors il est impossible 
de retrouver l'erreur commise, à moins 
de comparer les lignes de votre pro- 
gramme avec celles du journal, mais 
c'est très long et on risque de passer 
sur une erreur sans la voir. 
C'est pourquol ce programme a été 
créé ; Il est à utiliser si vous ne retrouvez 
pas vos erreurs. 
La frappe d'un programme de votre 
Journal favori (CPC) terminée, vous fal- 
tes "RUN' et là, vous corrigez toutes 
les erreurs signalées par le CPC en vous 
référant au journal pour comparer. S] 
malgré cela,il ne tourne toujours pas, 
sulvez cette procédure : 
- sauvez votre programme en ASCII 
grâce à l'instruction : Save "nom prog”, 
A. 

- Puis, si vous êtes sur K7, rembobinez 

la bande jusqu'au début du fichier ; 
- chargez Anti-Erreurs ; 


SUR MINITEL 
36 15 


Code 

















ukltaire 
ANTI ERREUR 


Grégory NOE 


Valable pour CPC 464, 
CPC 664, CPC 6128 


- entrez le nom de votre programme 
et Insérez le support où Il se trouve (K7 
ou disquette). 


Après quelques secondes, les numéros 
de ligne vont défiler. Vous remarque- 
rez qu'à chaque ligne correspond un 
code de 2 lettres sous cette forme : 
>XX : c'est le code qui va vous pemmet- 
tre de savoir d'où proviennent les er- 
reurs. Pour cela, il faut que vous com- 
pariez les codes du journal à ceux de 
l'écran. Si un code diffère, notez sur 
papier le numéro de ligne qui corres- 
pond à ce code. Continuez ainsi jus- 
qu'à la fin du listage. Le défilement 
terminé, recherchez votre programme 
et corrigez les lignes que vous avez 
notées en comparant avec le journal, 





Faites "RUN'et,6 miracle |, ça marche. 
Attention, lors de la frappe du pro- 
gramme à traiter, n'omettez aucun 
caractère car Anti-Erreurs les prend 
en compte et blen sûr, ne tapez pas 
les codes de contrôle. 


FUEL LE LE ES ETES ES ET EX EX ETES TEE T SDIR 


201 # LB 
30 ! # ANTI - ERREURS # )LC 
401 # LD 
50! # VERSION 2.0 # LE 
604 # OLF 
LC LEE LE LE EL EX LE EE EE EE ET EEE TPE SSDTE 
80 >LH 
80 ’ (c) CPC & G. NOE 1987 >LJ 
100 ? >RB 
110 ? >RC 


120 ? >322>2>2>DDD>DDDDDDDDDDDDDD RD 
130 "< INITIALISATION ) DRE 
140 ? CCECECCC CCC CCC CECECELCE DRE 
150 ? >RG 
160 ON ERROR GOTO 1250 >0D 
170 MODE 2 >HH 
180 DIN G$(23) >GD 
190 FOR 1-0 TO 22:READ G$:G$(1)=G$: >FR 
NEXT 

200 "ATTENTION LA LIGNE DE DATA CI- >RC 
DESSOUS NE CONTIENT PAS TOUTES LES 
LETTRES DE L'ALPHABET !!! 

210 DATA A,B,C,D,E,F,G,H,J,K,L,H,N, >AD 
P,QR,T,U,V,U,X,Y,2Z 

220 * ANTI-BUG FICHIER RE 
230 IF PEEK(HIHEN+1)=255 THEN 280  >ZD 
240 OPENOUT "CPC" >MA 
250 MEMORY HIMEH-2 >NX 
260 CLOSEOUT )RJ 
270 POKE HIMEM+1,255 >PP 
280 DEFINT B-Z >WH 
290 ! TB 
300 BORDER 6:1INK 0,1:INK 1,16:PEN 1 >JN 
PAPER 0 

310 MOVE 0,16:DRAN 650, 16 >TK 
320 PRINT TAB(27) "'ANTI-ERR >GU 
EURS  ‘";CHR$(24):"Version 2.0" 
;CHR$ (24) 

330 MOVE 0,385:DRAN 650,385 >UJ 
340 LOCATE 24,25:PRINT"CPC REVUE DE >EV 
S STANDARDS AMSTRAD" 

350 WINDOW 1,80,3,23 NL 
360 H$="Realise par Gregory NOE" >HJ 
370 F$="" )1A 
380 FOR 1=1 TO LEN(H$) >PU 
390 F$=F$+HID$ (M$, 1,1) >PL 
400 LOCATE 70-1,5:PRINT F$ JUL 
410 FOR T=1 TO 100 >LQ 
420 NEXT T, 1 EF 
430 >RH 
AGO Ÿ HARAREEENEREEERNEE R] 
#4 

450 ? >RK 
460 LOCATE 2,1:PRINT"ENTREZ LE NOM DIT 
DU FICHIER : "; 

470 INPUT "",NF$ >FD 


480 IF NF$="" THEN PRINT CHR$(7):G0 >GR 
TO 460 

490 LOCATE 2,3:PRINT"IMPRIMANTE OÙ >VR 
ECRAN (1/E)?" 

500 R$="":MNILE R$="":RS=UPPERS INK MK 
EY$) :WEND 

510 IF R$="1" THEN CA=8:PRINT"BRANC ID 








HEZ-LA..." ELSE 540 


520 PRINT#8,CHR#(27);"!";CHR$(20) >AR 
530 GOTO 560 >2F 
540 IF R$="E" THEN CA=0:G0T0 560  >YQ 
550 GOTO 500 >ZB 


560 CLS:LOCATE 2,3:PRINT"TANT QUE L >QR 
E LISTAGE N'EST PAS TERMINE" 

570 LOCATE 2,5:PRINT®NE PAS ARRETER >J4 
LE MAGNETOPHONE OÙ NE" 

580 LOCATE 2,7:PRINT"PAS SORTIR LA TL 
DISQUETTE" 

590 LOCATE 2,10:PRINT"PRESSEZ UNE T >HH 
OUCHE POUR LA LECTURE" 


600 CALL &BBOS >LH 
610 ’ >RH 
620 7 CCCCCCALECLECLEEEE RJ 
630 *< TRAITEMENT DU FICHIER > >RK 
640 ? >)2222222222222222DDDD) TA 
650 ’ >TB 
660 OPENIN "!"+NF4 DLF 
670 CLS:PRINT"TRAITEMENT EN COURS... >JR 
LI 
680 IF LENCA#)=255 THEN A9="":LINE )YU 
INPUT49,B#:GOTO 1160 
690 LINE INPUT#9,B$:A9=B4 JUE 
700 IF CAC)8 THEN GOSUB 1310 DF 
710 IF INKEY(66)=0 THEN STOP UN 
720 >RK 
730 * CALCUL DE LA CLE DE CONTRO TA 
LE 
740 ? )TB 
750 A=0:FLG=0 HE 
760 FOR 1=1 TO LEN(A#) >PH 
770 L#=HIDS (AS, 1,1) >HU 
780 IF L#=CHR$(34) AND FLG=1 THEN F )PC 
LG=0:GOTO 840 
790 IF L#=CHR$(34) AND FLG=0 THEN F )PD 
LG=1:GOTO 840 
800 IF L#=CHR#(32) AND FLG(1 THEN CI 
850 
810 IF L4=CHR#(39) AND FLG=0 THEN 8 )CA 
60 
820 IF FLG=1 THEN 840 >ND 
830 L#=UPPERS (L$) MC 
840 A=AHASC(L#)+1 >LU 
850 NEXT | >PB 
860 TE 
870 CHS=STRS (A) >CC 
880 CHS=RIGHTS (CHS, LENCCHS) -1) TC 
890 L=LEN(CHS) :L2=LEN(CHS)/2 >IA 
900 A=VAL(LEFTS(CHS, L2)) >TY 
910 C=INT(A/23) >AH 
920 P=A-(C#23) DL 





930 C$=G$(P) )1C 
940 A=VALCRIGHT$(CH$,L-L2) ) MH 
| 850 C=INT(A/23) :P=A-(C#23) DUT 
: 960 C$=C$+G$(P) >TD 
970 ? TG 
980 FOR 1=1 TO 6 >NK 
990 L$=HID$(A$, 1,1) >HY 
1000 IF L$<C"0" OR L$)"9" THEN 1030 DJ 
1010 LI$=L1$+L$ >XF 
1020 NEXT KE 


1030 VH$="":FOR 1=1 TO LEN(A$):IF A 
SC(MIDS$(A$,1,1)3<32 THEN VM$=VH#+" 
" ELSE VH$=VHS$+HIDS (AS, 1,1) 


>EK 


1040 NEXT 1:B$=VH$ )H4 
1050 ? Del 
1060 IF CAC8 THEN 1070 ELSE 1090  DYT 
1070 PRINT LI$;TAB(10) ">";C$ 74 
1080 LI$="":G0T0 1160 >ND 


1090 L1$="*:PRINTCA, LEFT$(B$,55) ;T 
AB(57) ")":C$ 


>0H 


1100 IF LEN(B$)€55 THEN 1160 DUT 
1110 FG=1 >CG 
1120 B$=H1D$(B$,56, LEN(B$)) >UB 
1130 PRINT#CA, LEFT$(B$,55) WW 


1140 IF FG=1 AND CAB THEN FG=0:G0 

SUB 1310:G0T0 1150 

1150 GOTO 1100 >LG 
1160 IF EOF=-1 THEN CLOSEIN ELSE GO >HD 

TO 680 

1170 IF CA=0 THEN CALL &BBO3:PRINT DRJ 

TAB(50) CHR$(24); "UNE TOUCHE..." ;CH 

R$(24):CALL &BBO5 

1180 CLS:PRINT'MAINTENANT RECHARGEZ, >JC 
";NF$:" ET CORRIGEZ LES LIGNES QUE 
VOUS AVEZ NOTEES.." 


1190 END )YK 
1200 ? )IF 
1210 ! CCKCECCECCCCECLECCLECELEE D IG 
1220 € TRAITEMENTS DES ERREURS >  >XH 
1 1230 ? CCECCCECECECECECCCCCCLLEC DLI 
1240 ? AK 


1250 IF ERR=25 THEN CLS:PRINT CHR$( 
7);CHR$(24) ; "FICHIER NON ASCII" ;CHR 
$(24):END ELSE CONT 


)YC 


| 1260 ? )YB 
1270 ? CKCCCCCCCCCLCCCECCECECELEC DTC 
1280 *<  ATTENTE TOUCHE... > ND 
1290 ? CCCCCLCCCCCECECECECECECEC DTE 
1300 ? Y1G 
1310 COM=COM+1:1F CON>19 THEN CALL >AF 


&BBO3:PRINT TAB(50) "UNE TOUCHE..." 
:CALL &BBO5:CLS:C0M=1 


1320 RETURN >EK 


STRATEGE 3 


Hugues DETINGUY 


Valable pour CPC 664 - 6128 





Au premier abord, Stratège ressemble à un morpion (je parle du jeu, bien sûr) 
mais en fait il cache un degré supplémentaire dans la difficulté 
puisqu'il faut d'abord passer par une étape de conquête des cases grâce au jet de 2 dés. 
Les règles sont incluses dans le jeu. 
Il vous suffit de taper et sauver le programme STRATEGE.BAS. 


LBUREREUNXEERNEEXN EX EX NX XX XX )LA 
28 )LB 
38 ‘x STRATEGE 3 * )LC 
48 >LD 
58 ‘x par HUGUES DETINGUY x )LE 
69 DLF 
74 x (C) 199ÿ L] )LG 
889 >LH 
PURE RE NN EE NE XX OK X À X >LJ 
97 ? DNF 
98 >HG 
99 >MH 


189 CLS:SYMBOL AFTER 225:1NK 8,26:1NK 1,2:INK 2,6:INK 3 
,8:PAPER 9:BORDER 24 

119 FOR 1=1 TO 159 STEP 19:d=1:FOR d=1 TO d+3:SOUND 1,d >VX 
,4:MOVE d,d:DRAW d,499-d,2:DRAW 649-d,489-d:DRAU 648-d, 
d'DRAW d,d'NEXT d'NEXT | 

129 a$="HUGUES DETINGUY":FOR i=1 TO LEN(a$):b$=MID£(af, 
i,1):b$=MID$(a$,i,1):PEN 1:LOCATE 12+i,11:PRINT b$ 


»>YP 


138 FOR t=1 TO 198:NEXT t:NEXT i:PEN 3:c$="prisente":F0 
R i:1 TO LEN(c$):d#$=MID$ (cé, i,11 


JVR 


1489 FOR j=29 TO 16+i STEP -1:LOCATE j,13:PRINT d$:LOCAT >FH 
E j#1,13:PRINT " ":NEXT j:NEXT i:PEN L:LOCATE 16,15:PRI 

NT "STRATEGE 3" 

159 PEN 3:LOCATE 9,25:PRINT "APPUYEZ SUR [CAPS LOCK]" BH 
169 IF INKEY(78)=9 THEN 178 ELSE 169 >BC 
174 CLS:PEN t:LOCATE 2,5:PRINT “CONTRE L'ORDINATEUR :": >XH 
LOCATE 2,18:PRINT "AVEC DEUX JOUEURS :":PEN 3:LOCATE 23 
,5:PRINT "tapez":LOCATE 21,19:PRINT "tapez":PEN 2:LOCAT 

E 29,5:PRINT "{":LOCATE 27,19:PRINT "2" 

189 T$=INKEYS:1F T$="" THEN 189 ELSE NJ=VAL(T$) NT 
199 IF NJ<1 OR NJ)2 THEN 199 DUU 
299 FOR J=1 TO NJ:PEN 1:LOCATE 2,15:PRINT "NOM DU JOUEU DUR 
R :":PEN 2:LOCATE 15,15:PRINT J:LOCATE 19,15:LINE INP 

UT T$(J) 

219 T$(JI=LEFTS(T$(J),19) :PRINT:NEXT:CLS KB 
997 ? UF 
998 ? rigle du jeu 

999 >UH 


1998 PEN 2:T$=INKEYS$:1F T$="0" THEN 1928 ELSE IF T$="N" 
THEN 2988 

1819 LOCATE 19,12:PRINT "VOULEZ-VOUS LA REGLE ?":PEN 3: 
LOCATE 18,14:PRINT "(O/N)":G0TO 1988 


>AG 


OCATE 2,4:PRINT "iere {tape:GAIN DE LA CASE" 

143$ PEN 3:LOCATE 1,5:PRINT " Choisissez,soit un des tr 
ous de la casecorrespondant au risultat des deux d{s ,s 

oit un trou dont le numfro correspond ({galesent au tir 
age . 

1449 LOCATE 1,9:PRINT * Lorsque cinq trous d'une meme c 
ase sontde la meme couleur , la case est gagnie par cet 
te couleur ." 

185$ PEN L:LOCATE 2,13:PRINT "2eme {tape:GAIN D’UNE LIG 
NE":PEN 3:LOCATE 1,14:PRINT " Comme au morpion , gagner 
trois cases horizontales , verticales ou diagonales." 


1969 PEN t:LOCATE 2,17:PRINT "NOMBRES PARTICULIERS:":PE 

N 3:LOCATE 1,18:PRINT "1) chiffre 2:vous devez retirer 
un trou occupi par l'adversaire ," 

197 LOCATE 1,28:PRINT "2) chiffre /:vous avez le choix 
entre lecentre de chaques cases ou les trous de la cas 

e No 7 .":LOCATE 1,23:PRINT "3) chiffre 2:choisissez n 
"importe quel trou inoccup{ ." 

1885 GOSUB 1139 

1998 CLS:PEN 1:LOCATE 2,2:PRINT "FONCTIONNEMENT" :PEN 3: 

LOCATE 1,4:PRINT " Appuyez sur la touche [D] pour jeter 

les d{s,puis choisissez le trou @ l’aidedes fl{ches 


pet validez avec la barre [espace] . 
1199 PEN 1:LOCATE 2,9:PRINT "REMARQUES :":PEN 3:LOCATE Î 
,14:PRINT " Lorsqu'il n'existe aucune possibilit{ de j 
eu avec le risultat obtenu , vous validez un trou occ 
I 
I up{ correspondant @ ce r{sultat et relancez les d{s ." 
I 1119 LOCATE 1,16:PRINT " Au bout de trois jets, vous dev 
De passervotre tour .":LOCATE 1,19:PRINT " Si vous choi 
À sissez un trou d{ja occup{ ou un trou dont le nun{ro ne 
H correspond pas avec le tirage , un bip sonore vous rap 
I pelera @ l'ordre ." 
1125 GOSUB 1139:G0T0 2999 
1139 LOCATE 7,25:PRINT "tappez sur la barre [espacel" 
I 1149 TS=INKEYS:1F T$OCHR$(32) THEN 1149 
1158 RETURN 
L 1907 
D 1998 ? dtcor 
} 1909 ? 


DUG 4 2999 SYMBOL 255,9,9,56,8,24,8,56,9:SYMB0L 254,9, 8,32, 32 


,49,56,8,B:SYNBOL 253,9,9,56,32,56,8,56,9:SYMBOL 252,9, 


>GH 1 5,56,32,56,49,56,9:SYMBOL 251,9,9,56,8,16, 16, 16, 8:SYMBO 
L 256,9,9,56,49,56,49,56,9:SYHBOL 249,8,9,56, 49,56, 8,56 


 P:SYMBOL 248,9,8,46, 196, 42, 42, 46,0 


I 2819 SYMBOL 247,9,9,36, 198, 36, 36, 36,9:SYMBOL 246,255, 12 >NN 
1825 CLS:PEN 2:LOCATE 15,2:PRINT "REGLE DU JEU":PEN 1:L UF À 9,129, 129, 129,129,129,255:SYHBOL 245,65, 127, 255, 255, 255 


ee 
[LL 


,255,255,255:SYHBOL 244, 248,252, 254,254, 254,254,254,254 Î 3959 D6$=CHR$(239)+CHR$(143)+CHR$(238)+R3$+CHR$(237)+CH DXL 
:SYMBOL 243,255,255,255,255,255, 127,63, 8:SYMBOL 242,254 I R$(L43)4CHRS (235) +R3$+CHR$ (234) +CHR$ (249) +CHR$ (233) 
,254,254,254,254,252, 248,9 3869 T$=INKEYS:1F T$="O" THEN 3989 ELSE IF T$="N" THEN 2L 
2928 SYMBOL 241,254,254,254,254,254,254,254,254:SYMBOL LE L 3585 

249,255,255,255,255,255,255,255,f:SYMBOL 239,63, 127,227 D 3979 PEN 1:LOCATE 3,25:PRINT "VOULEZ-VOUS COMMENCER ?:{ DXC 
, 193,193, 193,227, 255:SYMBOL 238,248, 252, 142,6,6,6, 142,2 D 0/N)":G0TO 3968 

54:SYMBOL 237,255,227, 193,193, 193,227,255,255:SYMBDL 23 f 3288 PEN B:LOCATE 3,25:PRINT SPACES(29) :PEN 1:LOCATE 3, DYN 


6,255,199,131, 131,131, 199, 255,255 25:PRINT T$(1);:PEN 3:PRINT * CONTRE ";:PEN 2:1F NJ=1 T 
2838 SYHBOL 235,254, 142,6,6,6, 142,254, 254:SYHBOL 234,22 >UH "| HEN PRINT "AMSTRAD';ELSE PRINT T$(2); 

7,193, 193,193,227,127,63,8:SYMBOL 233,142,6,6,6, 142,252 I 3998 IF T$="0" THEN 4999 ELSE IF T$="N" THEN 5998 MZ 
, 248,9: SYHBOL 232,255, 153,255, 153,255, 153,255, ÿ:SYMBOL 3997 >AA 
231,255, 249,255,231,255,159,255,9:SYMBOL 239,8,24,69, 12 l 3998 ” jeu du ter joueur >AB 
6,24,24,24,9 3999 ? )AC 
2945 SYNBOL 229,9,8,12,126,126,12,8,9:SYMBOL 228,8,9,9, TV À 4998 1F CR>8 THEN CR:ÿ >PZ 


231,255,24,24,24:SYMBOL 227,24, 24,24,255,231,8,9,9:SYMB 4919 J=1:JA=2:PEN 3:LOCATE 31,12:PRINT "A VOUS":VINDOU >M2 
OL 226,24,24,24,15,15,24,24,24:SYMB0L 225,24,24,24,249, D #1,31,49,13,13:CLS #1:PEN #1, 1:PRINT #1,T$(1); 


249,24,24,24 I 4925 WINDOW #2,33,38,15,25:CLS +2:PEN #2,2:PRINT #2,"L DZ 
2858 RL$=STRINGS (8,9) :R2$=STRINGS (19,8)+STRINGS (6,19) :R DVK "| A N CL EE 725$ "4CHR 
3$=STRINGS (3, 8)+CHR$(18) :C$=SPACES (8) :E$=CHRS$ (9) :LH$=ST l $(232):PEN 1:LOCATE 38,24:PRINT CHR$(231) 

RING$ (8, 154) :LV$=CHRS (149) :P$=CHR$ (143) : V$=CHRS (246) 4939 T$=INKEYS:IF T$="D" THEN 7849 ELSE 4939 >JH 
2969 C1$=CHR$(159)+LH$+CHR$S (228) +LH$+CHR$ !228)+LH$+CHRS DKG | 4949 CLS #2:PEN #2,2:PRINT #2,"CH 01 SI V SS DUT 
(156) :C2$=LVS+CHR$S (255) +U$+E$+CHR$ (254)+V$+E$+CHRS (253) 0 EE T TR RE O0 U " 

+V$ Bs5s coTo 8909 ME 
287D C3$=LVS+C$:C4$=LUS+CHRS (252)+V$+E$+E$+V$+E$+CHRS (2 DFA À 4997 ? )AB 
59)+V$ 1 4998 ’ jeu du 2ene joueur )AC 
2885 C5$=LUS+CHRS(249)+V$+E$+CHRS (248) +V$+E$+CHR$(247)+ DLB p 4999 ? )AD 
V$:C6$=CHR$S (226) +LH$+CHR$ (159) +LH$+CHR$S (159) +LH$+CHR$ (2 "| 5998 IF NJ=1 THEN 6999 >PN 
25) 5819 IF CB>8 THEN CB-ÿ >PR 


2899 C7$=CHR$(147)+LH$+CHRS (227) HLH$+CHRS (227) +LH$+CHRS DTK - 5928 J=2:JA=1:PEN 3:LOCATE 31,12:PRINT "A VOUS":WINDOW >MD 
(153) :C8$=C2$+C26+C2$+LV$:09$-C3$+C3$+C3$+LV$:C18$=C4$+ #1,91,49,13,13:CLS H1:PEN #1,2:PRINT #1,7$(2); 


CA$+CAS4LVS:C116=C5$+C56$+C5$+LUS L 5535 WINDOW 42,33,38,15,25:CLS +2:PEN 42,1:PRINT #2,"L )2X 
2199 CLS:PEN 3:LOCATE 2,4:PRINT C1$:LOCATE 2,5:PRINT CB HZ Ü À N CL EE 2S "4CHR 
$:LOCATE 2,6:PRINT C9$:LOCATE 2,7:PRINT C196:LOCATE 2,8 D 5(232):PEN 2:LOCATE 38,24:PRINT CHRS(231) 

{PRINT C9$:LOCATE 2,9:PRINT C11$:LOCATE 2,19:PRINT C6$: D 5940 TS=INKEYS: IF T$="D" THEN 7999 ELSE 5949 JM 
LOCATE 2,11:PRINT C8$:LOCATE 2,12:PRINT C9$:LOCATE 2,13 D 5958 CLS #2:PEN #2,1:PRINT #2,"CH ol SI V SS DU 
:PRINT C19$ 0 ET TR RE O0 u 

2118 LOCATE 2,14:PRINT C9$:LOCATE 2,15:PRINT C11$:LOCAT >PB I 5465 GOTO 8989 HG 
E 2,16:PRINT CG$:LOCATE 2,17:PRINT CB$:LOCATE 2,18:PRIN 5997 ? AC 
T C9$:LOCATE 2,19:PRINT C18$:LOCATE 2,29:PRINT C9$:LOCA | 5998 ‘ jeu de l'ordinateur >AD 
TE 2,21:PRINT C11$:LOCATE 2,22:PRINT C7$ I 5999 ? dAË 
2128 PEN 2:LOCATE 6,7:PRINT CHR$(255)+R1$+CHR$(254)+R1$ HN I 6898 1F CR>ÿ THEN CB: >PR 
+CHR$(253)+R2$+CHR$ (252) +R1$+CHR$S (251) +R1$+CHR$ (259) +R2 D 6992 J-2:JA=1:PEN 3:LOCATE 31,12:PRINT "A MOI ":WINDOW DXE 
SHCHR$(249)+R1$+CHR$(248)+R1$+CHR$ (247) D #1,31,49,13,13:CLS #1:PEN H1,2:PRINT #1, "AMSTRAD" :WINDO 
2139 PEN 1:LOCATE 9,2:PRINT CHR$(232)+SPACES(12)+CHR$(2 DFV E W #2,33,38,15,25:CLS #2:PEN #2,1:PRINT #2," CHUT ! 
31):PEN 2:LOCATE 11,2:PRINT "STRATEGE 3° JE JOUE " 

2149 XF=4:YF=5:X=1:Y=1:DIM T(82),C(12),A(82) HG "1 6994 GOTO 7899 ME 
2997 >ZK Ê 6896 C3-9:C4=0:C5=9:C6=D:C8=9:C9-9:C19-D:C11=D:FOR 1=1 DVG 
2998 ? dessins des d{s AA © TO 84:A(1)=9:NEXT 

2999 ? »48 | 6998 N=INT(RNDI1)#81)+1:X0=(N-1) MOD 9+1:YO=INT((N-1)/9 >PM 
3989 D1$=CHRS(245)+4CHRS(143)+CHRS (244)+R3$+CHRS (143)4CH KP À )+1:1F ACN):0 THEN 6918 ELSE 6688 
R$1236)+CHR$(241)+R36+CHR$ (243) +CHR$ (249) +CHR$ (242) D 6919 AGN)=1:1F C(7):9 THEN 6912 ELSE 6889 >EH 
3919 D2$-CHR$(245)+CHR$ (143)+CHR$(238)+R3$+CHR$(143)4CH DXR À 6812 IF S=7 OR S=12 THEN 6814 ELSE 6822 >CP 
R$UL43)+CHR$(241)+R3$+CHR$ (234 )+CHR$ (248) +CHR$ (242) D 6914 FOR 1:31 TO 33:1F T(1)=9 AND N=1 THEN 9818 >LB 
3929 D3$=CHR$(245)+CHR$(143)+CHR$(238)+R3$+CHR$(143)+CH DXX p 5216 NEXT:FOR 1=49 TO 42:1F T(1)=9 AND N:1 THEN 9919 TP 
R$(236) +CHR$(241)+R3$+CHR$ (234 )+CHR$ (248) +CHR$ (242) "1 6818 NEXT:FOR 1:49 TO 51:1F T(11=9 AND N=1 THEN 9849 TB 
3939 D4$=CHR$(239)+CHR$ (143) +CHR$ (238) +R3$+CHR$(143)+CH >XZ I 6929 NEXT:GOTO 6998 NX 
R$(143)4CHR$(241)+R3$+CHR$ (234) +CHR$ (249) +CHR$ (233) 6422 IF S=3 THEN 6424 ELSE 6928 >WH 
3949 D5$=CHR$(239)+CHR$(143)+CHR$ (238) +R3$+CHR$(143)+CH DXE Ï 6824 IF T(31)=8 THEN 6926 ELSE 6988 >2L 
R$(236)+CHR$(241)+R3$+CHR$ (234)+CHR$ (249) +CHR$ (233) D 6826 1F N-31 THEN 9019 ELSE 6908 >XG 
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6928 
6938 
6432 
6834 
6936 
6838 
6949 
6942 
6944 
6846 
6448 
685$ 
6852 
6954 
6856 
6858 
6969 
6862 
6964 


IF S=4 THEN 6939 ELSE 6934 

IF T(32)=$ THEN 6932 ELSE 6889 

IF N=32 THEN 9919 ELSE 6498 

IF S=5 THEN 6936 ELSE 6949 

IF T(33):ÿ THEN 6938 ELSE 6989 

IF N=33 THEN 9919 ELSE 6898 

IF 5=:6 THEN 6942 ELSE 6946 

IF T(49)=9 THEN 6944 ELSE 6989 

IF N=49 THEN 9919 ELSE 6998 

IF S=8 THEN 6948 ELSE 6952 

IF T(42)=9 THEN 6959 ELSE 6989 

IF N=42 THEN 9919 ELSE 6998 

IF S:9 THEN 6954 ELSE 6958 

IF T(49)=ÿ THEN 6956 ELSE 6889 

IF N=49 THEN 9919 ELSE 6998 

IF S=19 THEN 6969 ELSE 6864 

IF T(58):9 THEN 6962 ELSE 6989 

IF N:59 THEN 9919 ELSE 6898 

IF S=11 THEN 6666 ELSE 6978 

6966 IF T(51):9 THEN 6/68 ELSE 6889 

6968 IF N=51 THEN 9919 ELSE 6998 

6978 1F S=2 THEN IF T(31)=1 OR T(32)=1 OR T(33)=1 DR T{ 
49)=1 OR T(41)=1 OR T(42)=1 OR T(49)=1 OR T(58)=1 OR T{ 
51)=1 THEN 6872 ELSE 6984 

6972 FOR 1=31 TO 33:1F T(1)=1 AND N=1 THEN 11999 

6874 NEXT:FOR 1:49 TO 42:1F T(1)=1 AND N=1 THEN 11998 
6976 NEXT:FOR 1=49 TO 51:1F T(1)=1 AND N=1 THEN 11998 
6978 NEXT:GOTO 6998 

6989 FOR 1=1 TO 2:1F C(3)=ÿ AND C(4)=1 AND C(5)=I OR C{ 
3)=$ AND C(6)=1 AND C(9)=1 OR C(3)=8 AND C(7)=I AND C({ 
1)=1 THEN 6192:NEXT 

6482 FOR 1=1 TO 2:1F C(9)=1 AND C(1#)=1 AND C(111=9 OR 
C(5)=1 AND C(8)=1 AND C(11)=9 OR C(3)=1 AND C(7)=1 AND 
C(11)=8 THEN 6342:NEXT 

6484 FOR 1=1 TO 2:1F C(3)=1 AND C(4)=1 AND C(5):g OR C{ 
5)=ÿ AND C(8)=I AND C(11)=1 OR C(5)=8 AND C(7)=[ AND C{ 
8)=1 THEN 6182:NEXT 

6986 FOR 1=1 TO 2:1F C(9)=8 AND C(18)=1 AND C(111=1 OR 
C(3)=1 AND C(6)=1 AND C(9)=8 OR C(5)=1 AND C(7)=I AND C 
(9):8 THEN 6662:NEXT 

6988 FOR 1=1 TO 2:1F C(3)=1 AND C(4)=ÿ AND C(5)=1 OR C{ 
4)=9 AND C(7)=I AND C(19)=1 THEN 6422:NEXT 

649ÿ FOR 1=1 TO 2:1F C(6)=8 AND C(7)={ AND C(8)=1 OR C{ 
3)=1 AND C(6)=8 AND C(9)=1 THEN 6582:NEXT 

6492 FOR 1=1 TO 2:1F C(6)=1 AND C(7)=1 AND C(8)=9 OR C{ 
5)=1 AND C(8):=8 AND C(11)=1 THEN 6262:NEXT 

6894 FOR [={ TO 2:1F C(9)=1 AND C(18)=8 AND C(11)=1 OR 
C(4)=1 AND C(7)=I AND C(18)=9 THEN 6592:NEXT 

6996 IF C(71=1 AND C(5)=2 OR C(7)=2 AND C(5)={ OR C(7)= 
1 AND C(9)=2 OR C(7)=2 AND C(9)=1 THEN 6198 

6898 1F C(71=1 AND C(3)=2 OR C(7)=2 AND C(3):1 OR C(7)= 
1 AND C(11)=2 OR C(7)=2 AND C(11)=1 THEN 6189 

6199 1F C(31=9 THEN 6192 ELSE 6349 

6192 IF S=3 OR S=12 THEN 6194 ELSE 6129 

6194 FOR 1=1 TO 3:1F T(1)=8 AND N=! THEN 9918 

6196 NEXT:FOR 1=19 TO 21:1F T(1)=9 AND N=1 THEN 991 
6198 NEXT: IF S=12 THEN 6118 ELSE IF S=3 THEN 6114 

6119 FOR 1=19 TO 12:1F T(1)=9 AND N=! THEN 9919 

6112 NEXT:G0T0 6998 


x 


DUN 
)2F 
JXE 
>WP 
>ZV 
>XH 
)wQ 
)ZL 
>XG 
JC 
)ZR 
XXF 
>WD 
)2C 
XV 
XU 
>ZN 
>XH 
XV 
>ZB 
»XQ 
)EV 


>MHU 
JUN 
>UZ 
NL 
DC 


VV 
œ 


G 


VV 
—< 
CE] 


JXR 


)YC 
)CJ 
)JV 
TT 
>NH 
LR 
NZ 


D oits 1 79)25 AND N=19 THEN 9910 
6116 IF T(12)=8 AND N=12 THEN 9919 
D 6118 co7o 6906 
D 6125 1F S:4 THEN 6122 ELSE 6126 
D 6122 1F T(2)=9 THEN 6124 ELSE 6178 
D 6224 1F N:2 THEN 9819 ELSE 6998 
D 5125 1F 525 THEN 6128 ELSE 6132 
p 5228 !F T(3):9 THEN 6138 ELSE 6178 
g 19 !F N°3 THEN 9919 ELSE 6998 
6132 IF S26 THEN 6134 ELSE 6138 
D éise 1 rc19):8 THEN 6136 ELSE 6178 
6136 IF N:19 THEN 9918 ELSE 6498 
D 6138 1F 5:7 THEN 6149 ELSE 6144 
D 6149 1F T(11):9 THEN 6142 ELSE 6178 
D 6142 IF N=11 THEN 9919 ELSE 6998 
6144 IF S:8 THEN 6146 ELSE 6159 
p 5146 1F T(12):9 THEN 6148 ELSE 6178 
6148 IF N:12 THEN 9918 ELSE 6808 
: 6159 IF S=9 THEN 6152 ELSE 6156 
6152 IF T(19=9 THEN 6154 ELSE 6178 
D ô15 1F N-19 THEN 9619 ELSE 6958 
D 6156 1F 5:19 THEN 6158 ELSE 6162 
D 6158 1F T(29)-0 THEN 6169 ELSE 6178 
D 6168 1F N-29 THEN 9919 ELSE 6998 
D 5162 1F S:11 THEN 6164 ELSE 6168 
6164 IF T(21):9 THEN 6166 ELSE 6178 
p S166 !F N=21 THEN 9919 ELSE 6998 
g 9158 1F 522 THEN IF TCD:1 OR T(2)=1 OR T(3I:1 OR (19) 
=1 OR T(11)=1 OR T(12)=1 OR T(19)=1 OR T(28)=1 OR T(21) 
D 25 THEN 6178 ELSE 6178 
6178 FOR 1:1 TO 3:1F T(I)=1 AND N=1 THEN 11999 
D 6172 NEXT:FOR 1:19 TO 12:1F T(1)=1 AND N=1 THEN 11099 
6174 NEXT:FOR 1:19 TO 21:1F T(1)=1 AND N=1 THEN 11994 
D 5176 NEXT:GOTO 6998 
D 5178 C3-C3+1:1F C3:1 THEN 6/82 ELSE 6349 
p 5189 !F C(5):2 THEN 6162 ELSE 6669 
q 5162 !F S°5 OR 5-12 THEN 184 ELSE 6299 
6184 FOR 1=7 TO 9:1F T(1)=8 AND N=1 THEN 9919 
D ô86 NEXT:FOR 1-25 T0 27:1F T(11:0 AND N=1 THEN 9819 
6188 NEXT:IF S:12 THEN 6199 ELSE IF S=5 THEN 6194 
6198 FOR 1:16 TO 18:1F T(1)=9 AND N=1 THEN 9919 
D 6192 NEXT:GOTO 6498 
D 5194 1F T(16)=8 AND N:16 THEN 9919 
6196 1F T(18):8 AND N:18 THEN 9819 
6198 GOTO 6988 
: 6298 1F S=3 THEN 6292 ELSE 6296 
6292 IF T(7):9 THEN 6294 ELSE 6258 
D é2g4 1F N:7 THEN 9019 ELSE 6998 
6296 IF S=4 THEN 6298 ELSE 6212 
D 6298 1F T(8)-9 THEN 6218 ELSE 6258 
L 6218 1F N-8 THEN 9818 ELSE 6998 
LL 6212 1F 5-6 THEN 6214 ELSE 6218 
D 6214 IF T(16):9 THEN 6216 ELSE 6258 
D 6216 1F N=16 THEN 9919 ELSE 6998 
p 6218 !F S=7 THEN 6229 ELSE 6224 
p 5229 1F TU7):A THEN 6222 ELSE 6258 
6222 IF N=17 THEN 9918 ELSE 6898 
6224 IF S=8 THEN 6226 ELSE 6239 
D 6226 1F T(18)-8 THEN 6228 ELSE 6258 
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>YR 
)YY 
>NH 
)WK 
JYN 
ME 
JUy 
NYT 
JC 
JWX 
A] 
XF 
JWY 
)ZQ 
>XD 
WZ 
ZE 
XL 
WA 
>2F 
»XQ 
JXA 
»2A 
»XD 
>XB 
ZE 
XL 
)ZQ 


XKJ 
DUE 
JUR 
JNK 
>EH 
»YC 
CC 
JR 
)TE 
>PC 
>LN 
NH 
JYN 
DYV 
>PF 
UF 
>YQ 
DA 
JR 
>YV 
WG 
JU 
21 
AL 


JW 
>ZU 
YXJ 
DL 
>ZH 


6228 
6239 
6232 
6234 
6236 
6238 
6249 


IF N=18 THEN 9919 ELSE 6998 

IF S:9 THEN 6232 ELSE 6236 

IF T(25):9 THEN 6234 ELSE 6258 
IF N=25 THEN 9919 ELSE 6898 

IF S=19 THEN 6238 ELSE 6242 

IF T(26)=$ THEN 6249 ELSE 6258 
IF N=26 THEN 9919 ELSE 6998 


6338 C8=C8+1:1F C8=1 THEN 6994 ELSE 9919 

6349 IF C(11)=8 THEN 6342 ELSE 6188 

6342 1F S=11 OR S=12 THEN 6344 ELSE 6369 

6344 FOR 1=61 TO 63:1F T(1)=9 AND N=1 THEN 9919 

6346 NEXT:FOR 1:79 TO 81:1F T(1)=9 AND N=1 THEN 9819 
6348 NEXT:IF S=12 THEN 6358 ELSE IF S=11 THEN 6354 
6358 FOR 1=78 TO 72:1F T(1)=9 AND N=1 THEN 9818 


6242 1F S=11 THEN 6244 ELSE 6248 
6244 IF T(27)=8 THEN 6246 ELSE 6258 
6246 IF N=27 THEN 9918 ELSE 6898 


6248 IF S=2 THEN IF T(7)=1 OR T(8)=1 OR T(9)=1 OR T(16) 
=1 OR T(17)=1 OR T(18)=1 OR T(25)=1 OR T(26):1 OR T(27) 


=1 THEN 6259 ELSE 6258 

6259 FOR 1=7 TO 9:1F T(1)=1 AND N=! THEN 11909 

6252 NEXT:FOR 1=16 TO 18:1F T(1)=1 AND N=1 THEN 11998 
6254 NEXT:FOR 1:25 TO 27:1F T(1)={ AND N=I THEN 11998 
6256 NEXT:G0TO 6998 

6258 C5=CH+1:1F C5=1 THEN 6966 ELSE 6669 

6269 IF C(8)=ÿ THEN 6262 ELSE 9819 

6262 IF S=B OR S=12 THEN 6264 ELSE 6288 

6264 FOR 1-34 TO 36:1F T(1)=4 AND N=1 THEN 9919 

6266 NEXT:FOR 1:52 TO 54:1F T(1)=9 AND N=I THEN 9819 
6268 NEXT:1F S=12 THEN 6279 ELSE IF S=8 THEN 6274 
6278 FOR 1-43 TO 45:1F T(1)=ÿ AND N=] THEN 9818 

6272 NEXT:GO0TO 6998 

6274 IF T(43)=$ AND N=43 THEN 9919 

6276 IF T(45)=ÿ AND N=45 THEN 9919 

6278 GOTO 698B 

6289 IF S=3 THEN 6282 ELSE 6286 

6282 IF T(34)=:9 THEN 6284 ELSE 6338 

6284 IF N=34 THEN 9919 ELSE 6998 

6286 1F S:4 THEN 6288 ELSE 6292 

6288 IF T(35)=ÿ THEN 6299 ELSE 6338 

6299 IF N=35 THEN 9919 ELSE 6898 

6292 IF S=5 THEN 6294 ELSE 6298 

6294 IF T(36):8 THEN 6296 ELSE 6338 

6296 IF N-36 THEN 9919 ELSE 6498 

6298 IF S=6 THEN 6398 ELSE 6384 


>XY i 6352 NEXT:G0TO 6998 
>ZH I 6354 IF T(79)=$ AND N-79 THEN 9919 
JXR 6356 IF T(72):8 AND N=72 THEN 9819 
v2 | 6358 G0TO 6988 

D 6369 1F 5-3 THEN 6362 ELSE 6366 

D 6362 1F T(61)-9 THEN 6364 ELSE 6418 
KW EE 6364 1F N-61 THEN 9919 ELSE 6988 
UR 6366 1F S=4 THEN 6368 ELSE 6372 
DUU p 6368 IF T(62)-5 THEN 6379 ELSE 6418 
NJ I 6378 IF N=62 THEN 9919 ELSE 6998 
)EY ë 6372 IF S=5 THEN 6374 ELSE 6378 

6374 IF T(63):9 THEN 6376 ELSE 6418 

DD | 6376 IF N=63 THEN 9919 ELSE 6998 
)LQ Î 6378 IF S=6 THEN 6389 ELSE 6384 
»TD À 6389 1F T(78):5 THEN 6382 ELSE 6418 
>PC À 6382 IF N:79 THEN 9919 ELSE 6898 
LH Æ 6384 IF S=7 THEN 6386 ELSE 639 
NG p 6386 IF T(71)-9 THEN 6388 ELSE 6418 
)YH I 6388 IF N=71 THEN 9919 ELSE 698B 
YU i 6398 IF S=8 THEN 6302 ELSE 6396 
DPE NW 6392 IF T(72)=9 THEN 6394 ELSE 6418 
WG I 6394 IF N=72 THEN 9919 ELSE 6898 
)1J Ï 6396 IF S=9 THEN 6398 ELSE 6492 
>XR À 6398 1F T(79):9 THEN 6498 ELSE 6418 
DUT À 6489 IF N-79 THEN 9919 ELSE 6498 
>2N À 6492 1F S=19 THEN 6494 ELSE 6498 
XP H 6494 IF T(88)-9 THEN 6496 ELSE 6418 
WU I 6496 1F N=89 THEN 9918 ELSE 6898 


)2T F 6498 IF S=2 THEN IF T(61)=1 OR T(62)=1 OR T(63)=1 OR T( 
DXX w /8):1 OR T(71)=1 OR T(72)=1 OR T(79)=1 OR T(8D)=1 OR TI 


WA I 81)=1 THEN 6419 ELSE 6418 


6399 
6392 
6394 


IF T(43):9 THEN 6392 ELSE 6338 
IF N=43 THEN 9919 ELSE 6998 
IF S=7 THEN 6396 ELSE 6319 


6419 FOR 1=61 TO 63:1F T(1)=1 AND N=] THEN 11998 
6412 NEXT:FOR 1=79 TO 72:1F T(1)=1 AND N=1 THEN 11999 
6414 NEXT:FOR 1=79 TO 81:1F T(11=1 AND N=1 THEN 11999 


6396 IF T(44)=ÿ THEN 6398 ELSE 6338 
6398 IF N=44 THEN 9919 ELSE 6498 
6319 IF S=9 THEN 6312 ELSE 6316 
6312 IF T(52)=9 THEN 6314 ELSE 6338 
6314 IF N=52 THEN 9919 ELSE 6998 
6316 IF S=19 THEN 6318 ELSE 6322 
6318 IF T(53):$ THEN 6329 ELSE 6338 
6329 IF N=53 THEN 9919 ELSE 6998 
6322 1F S:11 THEN 6324 ELSE 6328 
6324 IF T(54)=$ THEN 6326 ELSE 6338 
6326 IF N-54 THEN 9919 ELSE 6898 


6328 IF S=2 THEN IF T(34)=1 OR T(35)=:1 OR T(36)=1 OR T( 
43)=1 OR T(44)=1 OR T(45)=1 OR T(52)=1 OR T(53)<1 OR T( 


54)=1 THEN 6338 ELSE 6338 

6338 FOR 1:34 TO 36:1F T(1)=1 AND N=1 THEN 11999 

6332 NEXT:FOR 1=43 TO 45:1F T(1)=1 AND N=1 THEN 11999 
6334 NEXT:FOR 1:52 TO 54:1F T(11=1 AND N=1 THEN 11999 
6336 NEXT:G0TO 6998 


>2D À 6416 NEXT:G0TO 6998 

XP 6418 C11=Ci1+1:1F C11=1 THEN 6984 ELSE 6189 
MU I 6429 IF C(4)=ÿ THEN 6422 ELSE 9919 

)24 I 6422 IF S=4 OR S=12 THEN 6424 ELSE 644f 

>XK I 6424 FOR 1=4 TO 6:1F T(1)=ÿ AND N=1 THEN 9819 


>XH À 6436 FOR 1:13 TO 15:1F TC1)=9 AND N:1 THEN 9919 
XV À 6432 NEXT:GOTO 6998 

>ZE D 6434 1F T(13)=9 AND N:13 THEN 9919 
XQ H 6436 IF T(15)2=ÿ AND N=15 THEN 9919 
)EZ I 6438 GOTO 6988 

I 6449 IF S=3 THEN 6442 ELSE 6446 

I 6442 IF T(4)=9 THEN 6444 ELSE 6498 
DMX , 6444 IF N=4 THEN 9918 ELSE 6998 
>UQ Ê 6446 IF S=5 THEN 6448 ELSE 6452 
UT Ê 6468 1F T(6)=$ THEN 6459 ELSE 6498 
NH À 6458 1F N-6 THEN 9819 ELSE 6988 
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6426 NEXT:FOR 1:22 TO 24:1F T(1)1=9 AND N=1 THEN 9819 
)ZA I 6428 NEXT:IF S=12 THEN 6439 ELSE IF S=4 THEN 6434 


DEX 
2 
>DH 
>LP 
>TX 
>QN 
)LL 
NF 
)YL 
YT 
>PD 
UD 
>ZF 
>XQ 
WP 
»2K 
>XN 
>uQ 
>ZP 
>XU 
DUR 
»2F 
>XQ 
DUT 
>ZV 
>XY 
HU 
>ZP 
>XU 
UV 
)ZQ 
>XQ 
>XQ 
»ZA 
DIN 
DEF 


>MN 
UP 
>UB 
>NG 
>GR 
NL 
)CB 
)JG 
TV 
PR 
>LD 
)NE 
)YD 
)YK 
>PC 
WA 
)YG 
> 
VX 
>2D 
JUL 


6452 
6454 
6456 
6458 
6469 
6462 
6464 
6466 
6468 
647$ 
6472 
6474 
6476 
6478 
6489 
6482 


IF 5-6 THEN 6454 ELSE 6458 

IF T(13:4 THEN 6456 ELSE 6498 

IF N:13 THEN 9919 ELSE 6098 

IF S:7 THEN 6469 ELSE 6464 

IF T(14)=9 THEN 6462 ELSE 6498 

IF N-14 THEN 9919 ELSE 6908 

IF 5:86 THEN 6466 ELSE 6479 

IF T(15)=8 THEN 6468 ELSE 6498 

IF N:15 THEN 991 ELSE GÜR6 

IF 5-9 THEN 6472 ELSE 6476 

IF T(22):8 THEN 6474 ELSE 6498 

IF N=22 THEN 9919 ELSE 6898 

IF 5:19 THEN 6478 ELSE 6482 

IF T(23):9 THEN 6489 ELSE 6498 

IF N:23 THEN 9919 ELSE 6098 

IF S:11 THEN 6484 ELSE 6488 

6484 1F T(24):9 THEN 6486 ELSE 6498 

6486 1F N:24 THEN 9919 ELSE 6698 

6488 IF S:2 THEN IF T(4):1 OR T(5):1 OR T(6)=1 OR T(13) 
24 OR T(14)=1 OR T(A5)=1 OR T(22)=1 OR T(23)=1 OR T(24) 
=1 THEN 6578 ELSE 6578 

6499 FOR 1=4 TO G:1F T(L)=1 AND N=1 THEN 11999 
6492 NEXT:FOR 1=13 TO 15:1F T(1)=1 AND N=1 THEN 11989 
6494 NEXT:FOR 1:22 TO 24:1F T(1)=1 AND N=1 THEN 11999 
6496 NEXT:GOTO 6998 

6498 C4=Chti: IF C4=1 THEN 6998 ELSE 9919 

6549 1F C(1#):9 THEN 6592 ELSE 9919 

6592 1F S=19 OR S=12 THEN 6594 ELSE 6529 

6584 FOR 1:58 TO 69:1F T(1)=8 AND N=1 THEN 0919 
6596 NEXT:FOR 1:76 TO 78:1F T(1)=9 AND N=1 THEN 9819 
6588 NEXT:1F 5-12 THEN 6519 ELSE IF S=19 THEN 6514 
6518 FOR 1:67 TO 69:1F T(1)=9 AND N=1 THEN 919 
6512 NEXT:GOTO 6498 

6514 1F T(67):4 AND N:67 THEN 9919 

6516 IF T(69):8 AND N:69 THEN 9919 

6518 GOTO 6988 

6529 1F 523 THEN 6522 ELSE 6526 

6522 IF T(58):9 THEN 6524 ELSE 6578 

6524 IF N=58 THEN 9919 ELSE 6998 

6526 1F S=4 THEN 6528 ELSE 6532 

6528 IF T(59):8 THEN 6539 ELSE 6578 

6538 IF N:59 THEN 9919 ELSE 6998 

6532 IF S25 THEN 6534 ELSE 6538 

6534 1F T(69):9 THEN 6536 ELSE 6578 

6536 1F N-69 THEN 9919 ELSE 6998 

6538 1F S=6 THEN 6549 ELSE 6544 

6549 1F T(67):9 THEN 6542 ELSE 6578 

6542 IF N:67 THEN 9919 ELSE 6698 

6544 IF S=7 THEN 6546 ELSE 6559 

6546 1F T(68):9 THEN 6548 ELSE 6578 

6548 1F N-68 THEN 9919 ELSE 6998 

6559 1F S=6 THEN 6552 ELSE 6556 

6552 IF T(69):9 THEN 6554 ELSE 6578 

6554 IF N:69 THEN 9919 ELSE 6998 

6556 IF S:9 THEN 6558 ELSE 6562 

6558 IF T(76):8 THEN 6569 ELSE 6578 

6569 1F N=76 THEN 9919 ELSE 6498 

6562 1F S=11 THEN 6564 ELSE 6568 

6564 1F T(78):9 THEN 6566 ELSE 6578 


XV 
»22 


KU 
>UR 
UU 
>NQ 
>EM 
>ZH 
>DA 
>LQ 
>TN 
>QF 
>LX 
>ND 
>YX 
>YD 
>PB 
DUX 
>ZQ 
>XV 
UH 
>ZV 
»XT 
DU] 
>ZP 
>XQ 
UK 
>2Q 
>XV 
DUL 
)ZE 
>XC 
UN 
>ZZ 
>XA 
DUY 
>ZA 
>XV 


»xp Î 


>2F 


6566 1F N=78 THEN 9919 ELSE 6898 


6568 IF 5=2 THEN IF T(58):1 OR T(59)=1 OR T(68)<1 OR T( 
671:1 OR T(68)=1 OR T(69)=1 OR T(76)=1 OR T(77)=1 OR TI 


78)=1 THEN 6579 ELSE 6578 
6578 FOR 1:58 TO 68:1F T(1)=1 AND N=1 THEN 11988 


6574 NEXT:FOR 1:76 TO 78:1F T(11=1 AND N=1 THEN 11998 


6576 NEXT:GOTO 6998 
6578 C19=C19#1:1F C19=1 THEN 6096 ELSE 9919 
6589 1F C(6)=8 THEN 6582 ELSE 9919 
6582 IF S-6 OR S=12 THEN 6584 ELSE 6698 
6584 FOR 1=28 TO 39:1F T(1)=8 AND N=1 THEN 9919 
6586 NEXT:FOR 1:46 TO 48:1F T(1)=9 AND N=1 THEN 9819 
D 6568 NEXT:1F S:12 THEN 6599 ELSE IF 5-6 THEN 6594 
D 6598 FOR 1:37 TO 39:1F TC1)=9 AND N=1 THEN 9919 
D 5592 NEXT:GOTO 6998 
6594 1F T(37):4 AND N:37 THEN 9919 
p 5596 1F T(39:8 AND N-39 THEN 9919 
6598 GOTO 6998 
D é6gg 1F 53 THEN 6602 ELSE 6606 
D 6692 1F T28):8 THEN 6604 ELSE 6658 
D 6694 1F N-28 THEN 9916 ELSE 6998 
D 6696 1F S-4 THEN 6698 ELSE 6612 
L 6698 1F T(29):8 THEN 6619 ELSE 6658 
6619 IF N-29 THEN 9919 ELSE 6498 
p 6622 !F 5:5 THEN 6614 ELSE 6618 
6614 IF T(39):9 THEN 6616 ELSE 6658 
6616 IF N-39 THEN 9919 ELSE 6998 
6618 1F S:7 THEN 6629 ELSE 6624 
D 6629 1F T(38):9 THEN 6622 ELSE 6658 
6622 IF N-38 THEN 9919 ELSE 6808 
D 6624 1F 5-8 THEN 6626 ELSE 6639 
D 6626 1F T(39)-4 THEN 6628 ELSE 6658 
D 6628 1F N=39 THEN 9919 ELSE 6998 
6638 IF S=9 THEN 6632 ELSE 6636 
5622 1F T(A6)-9 THEN 6634 ELSE 6658 
q St LF N:46 THEN OLS ELSE 6098 
6636 IF S-19 THEN 6638 ELSE 6642 
Lé638 17 TC47:0 THEN 6649 ELSE 6656 
D 6649 1F N=47 THEN 9919 ELSE 6498 
D 6642 1F S:11 THEN 6644 ELSE 6648 
D 6644 1F T(48)-9 THEN 6646 ELSE 6658 
D 6646 1F N:48 THEN 9918 ELSE 6698 
6648 


q “921 THEN 6658 ELSE 6658 
6659 FOR 1-28 TO 38:1F T(1)=1 AND N=1 THEN 11999 
D 6652 NEXT:FOR 1:37 T0 39:1F T(1):1 AND N=1 THEN 11909 
D 6654 NEXT:FOR 1:46 TO 48:1F TC1)-1 AND N=1 THEN 11900 
D 6656 NEXT:G0TO 6998 
D 6658 C6-C6+1:1F C6=1 THEN 6492 ELSE 9919 
D 5669 1F C(9)-9 THEN 6662 ELSE 9919 
6662 IF S-9 OR S:12 THEN 6664 ELSE 6684 
p 5664 FOR 1:55 TO 57:1F T(I)=A AND N-1 THEN 9919 
ge SS6S MEXTEFOR 1:73 70 75:1F TOI: AND N=1 THEN 9819 
6668 NEXT:1F S-12 THEN 6679 ELSE IF S:9 THEN 6674 
6679 FOR 1-64 TO 66:1F T(1)=9 AND N=1 THEN 9918 
6672 NEXT:GOTO 6498 
D 6674 1F T(64)-9 AND N:64 THEN 9919 
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I 
I 
I 
I 
ë 
D 5572 NEXT:FOR 1:67 TO 69:1F T(1)=1 AND N:1 THEN 11999 
l 
I 
I 
I 
I 
I 


IF S:2 THEN IF T(28)=1 OR T(29):1 OR T(38)=1 OR T( 
I 37):1 OR T(38)=:1 OR T(39)=1 OR T(46)=1 OR T(47)=1 OR TI 


XD 
)FJ 


MG 
UK 
JUN 
NP 
>GU 
»YD 
>DH 
DUT 
)TQ 
)PR 
)LZ 
>NM 
)Y2 
YF 
>PK 
JUU 
>2J 
»XQ 
WE 
>aN 
>XN 
WF 
>ZH 
XL 
>WH 
>2K 
JXR 
DU] 
22 
AZ 
JWK 
»2Q 
>XU 
DXK 
AI 
JÂR 
XL 
»21 
»X2 
)EK 


M2 
UC 
DUE 
NN 
)EU 
NE 
DT 
>LB 
TP 
)PR 
)LY 
NL 
JYY 


Fr 


6676 IF T(66)-ÿ AND N-66 THEN 9919 DYE Û 8819 PEN 2:LOCATE XF,23:PRINT CHR$(238) :LOCATE 1,YF:PRI >QK 
6678 GOTO 69BB ps Ï NT CHR$(229) 

6688 IF S=3 THEN 6682 ELSE 6686 uv Ê 8428 corto 8089 MF 
6682 1F T(55)=ÿ THEN 6684 ELSE 6738 )ZA À 8939 1F TSOCHRS(32) THEN GOSUB 8974:G070 8868 ELSE 884 XL 
6684 IF N=55 THEN 9919 ELSE 6998 2 [5 

6686 IF S=4 THEN 6688 ELSE 6692 WF 8248 GOTO 9989 JM] 
6688 IF T(56)-ÿ THEN 6699 ELSE 6738 ZE 8959 GOSUB 8969:G0T0 8499 >TJ 
6699 1F N-56 THEN 9914 ELSE 6698 XX | 6868 RETURN >FH 
6692 IF S:5 THEN 6694 ELSE 6698 WG I 8979 IF INKEY(#)=9 AND INKEY(2)=8 AND INKEY(8)=8 AND IN >YH 
6694 IF T(57)-8 THEN 6696 ELSE 6738 )AA KEY(1)=9 THEN RETURN 

6696 IF N:57 THEN 9919 ELSE 64998 DE | 8988 LOCATE XF,23:PRINT CHR$(32):LOCATE 1,YF:PRINT CHR$ DFE 
6698 1F S-6 THEN 6799 ELSE 6794 un (32) 

6798 IF T(64)=ÿ THEN 6792 ELSE 6738 )2F Ü 8809 1F INKEY(#)-8 AND YF)5 THEN YF:YF-2:Y=Y-1 )NA 
6792 IF N-64 THEN 9919 ELSE 6898 DXP Æ 8199 IF INKEY(2)=9 AND YF<21 THEN YF=YF+2:Y=Y#1 )PC 
6794 IF S=7 THEN 6796 ELSE 6719 ME H 8118 IF INKEY(8)=9 AND XF)4 THEN XF=XF-3:X=X-1 > 
6796 IF T(65):9 THEN 6788 ELSE 6738 >ZV 4 8129 IF INKEY(1)=8 AND XF<28 THEN XF=XF+3:X=X+1 >PG 
6798 IF N-65 THEN 9919 ELSE 6998 XX i 8138 RETURN >FF 
6718 IF S=8 THEN 6712 ELSE 6716 NF | 8997 ? >AF 
6712 IF T(66)-9 THEN 6714 ELSE 6738 )ZP 8998 ’ choix du trou )AG 
6714 IF N-66 THEN 9919 ELSE 6898 XV I 8999 ? AH 
6716 IF S=18 THEN 6718 ELSE 6722 >XG i 9898 N=X+9%(Y-1) DEF 
6718 IF T(74):9 THEN 6728 ELSE 6738 >2R D 9919 1F 5-3 THEN 9929 ELSE 9ÿ4ÿ >WH 
6729 1F N=74 THEN 9918 ELSE 6096 »xQ D 9829 IF N:1 OR N=2 OR N=3 OR N=4 OR N=7 OR N:1 OR N:12 DU 
6722 IF S=11 THEN 6724 ELSE 6728 >XH D OR N=19 OR N=29 OR N=21 OR N=28 OR N=31 OR N:=34 OR N=5 
6724 IF T(75):ÿ THEN 6726 ELSE 6738 »24 [5 OR N-58 OR N-61 THEN 9939 ELSE 9449 

6726 IF N=75 THEN 9919 ELSE 6998 »XY E 9939 1F T(1)<)8 AND T(2)C)8 AND T(3)C>8 AND T(4)C38 AND dGJ 
6728 IF 5=2 THEN IF T(55)=1 OR T(56)=1 OR T(57)=1 OR T( >ER | T(7)€38 AND T(19)©8 AND T(12)€98 AND T(19)C38 AND T(2 
64)=1 OR T(65)=1 OR T(66)=1 OR T(73)=1 OR T(74)=1 OR T( ” 9)©8 AND T(21)8 AND T(28)<)9 AND T(31)09 AND T(34)4 
75)=1 THEN 6739 ELSE 6738 8 AND T(55)O8 AND T(58)<>8 AND T(61)C)8 THEN 9388 ELS 
6738 FOR 1:55 TO 57:1F T(1)=1 AND N=! THEN 11989 >MH Ë E 9349 

6732 NEXT:FOR 1264 TO 66:1F T(L)=1 AND N=1 THEN 11989 uB D oges IF S=4 THEN 9859 ELSE 9979 JU 
6734 NEXT:FOR 1:73 TO 75:1F T(1):1 AND N=1 THEN 11988 UD À 9958 1F N:2 OR N-4 OR N:5 OR N:6 OR N=8 OR N=13 OR N=15 DWZ 
6736 NEXT:G0T0 6998 NM Æ OR N=22 OR N=23 OR N=24 OR N=29 OR N=32 OR N=35 OR N:5 
6738 C9=C9+1:1F C9=1 THEN 6988 ELSE 9919 EH Æ 6 OR N-59 OR N=62 THEN 9969 ELSE 944 

6997 ? >AD i 9868 1F T(2)08 AND T(4)<>8 AND T(5)<38 AND T(6)4>8 AND DHA 
6998 * lancement des d{s AE 1 T(8)©8 AND T(13)C)8 AND T(15)€29 AND T(22)C9 AND T(2 
6999 ? DAF I 3)<>8 AND T(24)109 AND T(29)€)8 AND T(32)C)8 AND T(35)4 
7898 RANDOMIZE(TIME*199) :DB=INT(RND(1)*x6)+1:PEN 1:LOCAT DHH I 8 AND T(56)€)9 AND T(59)C)9 AND T(62)C8 THEN 9398 ELS 

E 34,2 E 9349 

7819 1F DB=1 THEN PRINT Di$ DUE À 9476 1F S:5 THEN 9989 ELSE 9199 JW 
7929 IF DB=2 THEN PRINT D2$ DUH À 9989 1F N=3 OR N-6 OR N:7 OR N:8 OR N=9 OR N=16 OR N=18 DUT 
7839 IF DB=3 THEN PRINT D3$ DUL Æ OR N=25 OR N=26 OR N-27 OR N=39 OR N=33 OR N=36 OR N:=5 
7949 IF DB=4 THEN PRINT D4$ UP Æ 7 OR N-69 OR N-63 THEN 9999 ELSE 944ÿ 

7858 IF DB=5 THEN PRINT D5$ DUT [ 9898 1F T(3)C08 AND T(6)CD8 AND T(7)<)8 AND T(8)€>8 AND DHQ 
7969 IF DB-6 THEN PRINT D6$ UV "| T(9)8 AND T(16)8 AND T(18)C8 AND T(25)8 AND T(2 


7878 RANDOMIZE(TIME*199) :DR=INT(RND(1)x6)+1:PEN 2:LOCAT JF I 6)<28 AND T(27)C9 AND T(38)©8 AND T(33)C8 AND T(36)4 


E 35,6 >4 AND T(57)C8 AND T(64)8 AND T(63)C8 THEN 9398 ELS 
7888 IF DR=:1 THEN PRINT D1{$ UE | E 9349 

7999 IF DR=2 THEN PRINT D2$ DUH À 9198 1F S-6 THEN 9119 ELSE 9139 NL 
7198 IF DR=3 THEN PRINT D3$ DUB D 9119 IF N=19 OR N:13 OR N-16 OR N-28 OR N=29 OR N=38 OR FE 
7119 IF DR=4 THEN PRINT D4$ UE D N:37 OR N-39 OR N:49 OR N:43 OR N=46 OR N=47 OR N=48 0 
7128 IF DR=5 THEN PRINT D5$ JUH HR N=64 OR N:67 OR N=79 THEN 9128 ELSE 944g 

7139 IF DR=6 THEN PRINT D6$ DUL gp 9129 IF T(19)<28 AND T(13)C98 AND T(16)4>8 AND T(28) C8 DWM 
7148 S=DB+DR:1F J=1 THEN 4949 ELSE 7158 )EQ l AND T(29)©8 AND T(38)©8 AND T(37)08 AND T(39)C8 AN 
7159 IF NJ=1 THEN 6996 ELSE 5958 >XD J D T(4#)<28 AND T(43)C8 AND T(46)<>8 AND T(47)Q8 AND T 
7997 ! DAE , (48)@8 AND T(64)©8 AND T(67)C29 AND T(78)C>8 THEN 938 
7998 ” d{placesents des fl{ches >AF | ÿ ELSE 9348 

7999 DAG D 9138 1F S27 THEN 9149 ELSE 9168 JUX 
8999 T$=INKEYS:IF T$O"" THEN 8939 DAN D 9148 1F N=11 OR N=14 OR N=:17 OR N=31 OR N:32 OR N=33 OR VA 
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N=38 OR N=48 OR N=41 OR N=42 OR N=44 OR N=49 OR N:=58 0 

R N:=51 OR N-65 DR N-68 OR N=71 THEN 9158 ELSE 9449 

9158 IF T(11)<28 AND T(14)08 AND T(172428 AND T131)08 
AND T(32)C08 AND T(33)<28 AND T(38)C8 AND T(48)C>8 AN 

D Tia12<>8 AND T(42)09 AND T(44)428 AND T(49)©@8 AND T 
(589 AND T(512<28 AND T(65)08 AND T(68)<>8 AND TI71 
1O8 THEN 9384 ELSE 934$ 

9168 IF S=8 THEN 9178 ELSE 9199 

9178 IF N=12 OR N=15 OR N=18 OR N=34 OR N=35 OR N:36 OR 
N=39 OR N=a2 OR N=43 OR N=45 OR N=52 OR N:=53 OR N=54 D 

R N=66 OR N=69 OR N=72 THEN 9189 ELSE 9448 

9188 IF T(12)C8 AND T(15)C)8 AND T(18)C8 AND T(34))8 
AND T(35)C>8 AND T(36)C9 AND T(39)<>8 AND T(42)C28 AN 

D T(43)C8 AND T(45)<)8 AND T(52)©8 AND T(53)<28 AND T 
(5408 AND T(66)€>9 AND T(69)<>8 AND T(72)89 THEN 938 
$ ELSE 9348 

9198 IF S=9 THEN 9298 ELSE 9229 

9288 IF N=19 OR N=22 OR N=25 OR N=46 OR N=49 OR N=52 OR 
N=55 OR N=56 OR N:57 OR N-64 OR N=66 OR N=73 OR N=74 0 
R N=75 OR N-76 OR N=79 THEN 9219 ELSE 944ÿ 

9218 IF T(19)<38 AND T(22)08 AND T(25)€>8 AND T(46)09 
AND T(49)<98 AND T(52)<)8 AND T(55)C9 AND T(56)€>8 AN 
D T(5728 AND T(64)€29 AND T(66)<>8 AND T(73)8 AND T 
(74129 AND T(75)8 AND T(76)C9 AND T(79)<>8 THEN 938 
$ ELSE 9348 

9228 1F S=19 THEN 9238 ELSE 9259 

9238 1F N=28 OR N-23 OR N=26 OR N=47 OR N=59 OR N=53 OR 
N=58 OR N=59 OR N-69 OR N-67 OR N=69 OR N=74 OR N=76 0 
R N=77 OR N=78 OR N=89 THEN 9249 ELSE 9449 

G249 IF T(29)<)8 AND T(23)C08 AND T(26)<>8 AND T147)0$ 
AND T(58)©4 AND T(53)€)9 AND T(58)C8 AND T(59)€>8 AN 
D T(69)C28 AND T(67)€>9 AND T(69)<>8 AND T(74)O8 AND T 
(7628 AND T(77)©8 AND T(78)€9 AND T(8#)<>8 THEN 938 
ÿ ELSE 9348 

9258 IF S=11 THEN 9268 ELSE 9289 

9264 IF N=21 OR N=24 OR N=27 OR N=68 OR N=51 OR N=54 OR 
N=61 OR N=62 OR N:63 OR N=79 OR N=72 OR N=75 OR N=78 0 
R N=79 OR N=89 OR N=81 THEN 9278 ELSE 944ÿ 

9278 1F T(21)<>8 AND T(24)08 AND T(27)>8 AND T(48)O8 
AND T(51)09 AND T(54)C28 AND T(61)C28 AND T(62)<>8 AN 
D T(63)<28 AND T(74)€>8 AND T(72)€>8 AND T(75)@8 AND T 
(78)C)4 AND T(79)C)8 AND T(88)C)8 AND T(81)<>8 THEN 938 
ÿ ELSE 9348 

9288 IF S=12 THEN 9348 ELSE 9299 

9299 IF S=2 THEN 11998 

9398 IF J=1 THEN CB=CB+1 ELSE CR=CR+1 

9319 IF CB>2 OR CR>2 THEN 9339 

. 9328 IF J=1 THEN 4999 ELSE 5989 

9338 CLS #2:PEN #2,J:PRINT #2," PASSEZ 

VOTRE TOUR !":FOR 1=1 TO 2B99:NEXT:GOTO 12989 

9349 IF NJ=1 AND J=2 THEN 9359 ELSE 9499 

9359 F:9:F1=199:F2=9 

9369 F1-F1+1:1F F1<199 THEN 9368 

9378 F1:9:F2=F2+1:F=2-F:PEN F:LOCATE 34X0+1,2#Y0+3:1F T 
(N)=4 THEN PRINT P$ ELSE 6998 

9388 IF F2)8 THEN 9398 ELSE 9369 

939ÿ T(N)=2:G0T0 19989 

0499 PEN J:LOCATE XF,YF:1F T(N)=8 THEN PRINT P$ ELSE 94 
39 


x 


1 9418 1F J=1 THEN T(N)={ ELSE T(N)=2 


AG 
9429 GOTO 18988 DUG 
>GF À 9638 PRINT STRINGS (288, 7):GOTO 8809 >CA 
D 9449 1F NJ=1 AND J=2 THEN 6988 ELSE 9439 >DV 
E 9997 AG 
p 9998 ” case gagne >AH 
[29 AJ 
DUA 19868 IF N=1 OR N:2 OR N<3 OR N:19 OR N:11 OR N:12 OR N RQ 
DFA g *19 OR N29 OR N=21 THEN 19919 ELSE 19960 
18919 IF J=1 THEN B3=B3+1 ELSE R3=R3+1 >DP 
D 19928 1F B3)4 OR R3D4 THEN 19830 ELSE 12940 FA 
out À 19839 LOCATE 4,5:PRINT PS:LOCATE 7,5:PRINT PS:LOCATE 18 DUT 
D ,5:PRINT PS:LOCATE 4, 7:PRINT PS:LOCATE 7, 7:PRINT P#:LOC 
DATE 19,7:PRINT PS:LOCATE 4,9:PRINT PS:LOCATE 7,9:PRINT 
D PS:LOCATE 19,0:PRINT PS 
D BP T(L)=8:T(2)<9:T(9)=3:T(1D)=3:T(11)28T(12)<9:T(19 DQD 
MZ p=3T0291-3T2L)<82IF #1 THEN C(9:1 ELSE C(3)-2 
)FU q 18/55 GOTO 12999 DAB 
18068 IF N=4 OR N=5 OR N:6 OR N=13 OR N=14 OR N:15 OR N DRU 
D 222 6h N:23 OR N-24 THEN 19978 ELSE 19129 
DUB À 14078 1F J:1 THEN Bé-Bâ+t ELSE Rü=Ratl >DA 
D 16988 1F B4>4 OR R&)4 THEN 19999 ELSE 12998 >6G 
D 19998 LOCATE 13,5:PRINT P$:LOCATE 16,5:PRINT PS:LOCATE )LD 
D 19,5:PRINT PS:LOCATE 13, 7:PRINT PS:LOCATE 16, 7:PRINT P4 
D :LOCATE 19,7:PRINT PS:LOCATE 13,9:PRINT PS:LOCATE 16,0: 
DXP PRINT PS:LOCATE 19,9:PRINT PS 
DT LAISE TUA)=3T(S)23ET (628: 7119123: T(14)23:T(18)=3:7(22 IQ 
22709-37020 3:IF JL THEN C():1 ELSE C(4):2 
18118 GOTO 12998 »1J 
jux D 15128 1F N:7 OR N-8 OR N-9 OR N:16 OR N=17 OR N:18 OR N DRZ 
D 225 OR N:26 OR N=27 THEN 19138 ELSE 19189 
D 19139 1F J=1 THEN B5-B5+1 ELSE RS=R5+1 >DB 
D 19149 1F B534 OR RSD4 THEN 19159 ELSE 12999 »GC 
D 19159 LOCATE 22,5:PRINT PS:LOCATE 25,5:PRINT PS:LOCATE LA 
HA 28, 52PRINT P#:LOCATE 22, 7:PRINT P&:LOCATE 25, 7:PRINT P$ 
DFG  “LOCATE 28, 7:PRINT PS:LOCATE 22,9:PRINT PS:LOCATE 25,9: 
D PRINT PE:LOCATE 28,9:PRINT PS 
19169 T(7)=3:T(B)23:T(9)23:T(16)23:7(17)23:T(18)=3:T(25 DRB 
sun D :3:70261:3:7(27)-3:1F 21 THEN C(5):1 ELSE C(5):2 
D 15176 coro 12999 DAE 
D 19188 1F N-28 OR N=29 OR N=39 OR N=37 OR N=38 OR N=39 O DUL 
DR N:46 OR N:47 OR N=48 THEN 19199 ELSE 19249 
D 19198 LF J=1 THEN B6-B6+1 ELSE R6=R6+1 >DH 
KE [19298 IF B6)4 OR R6)4 THEN 19219 ELSE 12998 F6 


>PF I 19218 LOCATE 4,11:PRINT P$:LOCATE 7,11:PRINT P$:LOCATE DUA 
DH I 19,11:PRINT P$:LOCATE 4,13:PRINT P$:LOCATE 7,13:PRINT P 
DUB | $:LOCATE 19,13:PRINT P$:LOCATE 4, 15:PRINT P$:LOCATE 7,1 
DU] Ù 5:PRINT P$:LOCATE 19,15:PRINT P$ 
>TJ N 19228 T(28)=3:T(29)=3:T(39)=3:T(37)=3:T(38)=3:T(39)=3:T )W2 
D (46):3:7(47-3:T(48)=3:1F J=1 THEN C(6):1 ELSE C(6)=2 
>DU À 14235 GOTO 12998 )AB 
DNU EE 19249 IF N=31 OR N=32 OR N=33 OR N=49 OR N=41 OR N-42 D UM 
»XD pR N=49 OR N=59 OR N-51 THEN 19258 ELSE 19399 
XKH I 19258 IF J=1 THEN B7=B7+1 ELSE R7=R7+1 >DN 
I 198268 IF B7>4 OR R7)4 THEN 19279 ELSE 12989 >GN 
>XD , 19279 LOCATE 13,11:PRINT P$:LOCATE 16,11:PRINT P$:LOCAT KL 
)QL | E 19,11:PRINT P$:LOCATE 13,13:PRINT P$:LOCATE 16,13:PRI 
)AQ I NT P$:LOCATE 19,13:PRINT P$:LOCATE 13,15:PRINT P$:LOCAT 
LE 16,15:PRINT P$:LOCATE 19,15:PRINT P$ 
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5e 


19289 T(31)=3:7(92)=3:T(33)=3:T(49)=3:T(41)=3:T(42)23:T DUU Ê 11979 1F F2)8 THEN 11989 ELSE 11959 »2J 
(49)=3:T(59)=3:T(51)=3:1F J=1 THEN C(7)=1 ELSE C(7)=2 11988 T(N)=4:GOTO 11119 )QA 
19299 GOTO 12999 AH Æ 11999 IF T(N)=JA THEN 11199 ELSE 9438 >BH 
14398 IF N=34 OR N=35 OR N:36 OR N=43 OR N=44 OR N=45 O DWG E 11198 PEN 3:LOCATE XF, YF:PRINT V$:T(N)=ÿ NY 
R N=52 OR N-53 OR N=54 THEN 19319 ELSE 19369 11118 IF N=1 OR N=2 OR N=3 OR N=19 OR N=11 OR N=12 OR N >RV 
19318 IF J=1 THEN B8=B8+1 ELSE RB=RB+1 >DP "1 =19 DR N=28 OR N=21 THEN 11128 ELSE 11139 

19328 IF B8>4 OR R8)4 THEN 19339 ELSE 12998 »GJ I 11128 IF J=1 THEN R3=R3-1 ELSE B3=B3-1 >DX 
19338 LOCATE 22,11:PRINT P$:LOCATE 25,11:PRINT P$:LOCAT DKH , 11138 IF N=4 OR N=5 OR N=6 OR N=13 OR N=14 OR N=15 OR N DRX 
E 28,11:PRINT P$:LOCATE 22,13:PRINT P$:LOCATE 25,13:PRI =22 OR N=23 OR N=24 THEN 11149 ELSE 11158 

NT P$:LOCATE 28,13:PRINT P$:LOCATE 22,15:PRINT P$:LOCAT Dittag 1F J:1 THEN Ra=Ré-1 ELSE B4=B4-1 >DD 
E 25,15:PRINT P$:LOCATE 28,15:PRINT P$ D11158 1F N:=7 OR N=8 OR N-9 OR N=16 OR N=17 OR N:18 OR N RH 
19348 T(34)=3:T(35)=3:T(36)=3:T(43)=3:T(44)=3:T(45)=3:T DWN À =25 DR N=26 OR N=27 THEN 11168 ELSE 11179 
(521=3:7(53)=3:T(54)=3:1F J=1 THEN C(B)=1 ELSE C(8)=2 D 11169 IF J=1 THEN R5=R5-1 ELSE B5=B5-1 >DK 
19358 GOTO 12998 )AE pq 11178 IF N-28 OR N-29 OR N-39 OR N=37 OR N=38 OR N=39 0 >WR 
19368 IF N=55 OR N=56 OR N=57 OR N=64 OR N:65 OR N-66 0 WW y R N:46 OR N=47 OR N=48 THEN 11189 ELSE 11199 

R N=73 OR N=74 OR N=75 THEN 19378 ELSE 19429 I 11188 IF J=1 THEN RG=RG6-1 ELSE B6-BG-1 DR 
19379 IF J=1 THEN B9=B9+1 ELSE R9=R9+1 DA , 11198 IF N=31 OR N-32 OR N=33 OR N=48 OR N:=41 OR N=42 D WP 
19388 IF B9>4 OR R9)4 THEN 19399 ELSE 129899 )GZ I R N=49 OR N=59 OR N=51 THEN 11298 ELSE 11219 

19399 LOCATE 4,17:PRINT P$:LOCATE 7,17:PRINT P$:LOCATE UP E 11298 IF J=1 THEN R7=R7-1 ELSE B7=B7-1 >DN 


19,17:PRINT P$:LOCATE 4, 19:PRINT P$:LOCATE 7,19:PRINT P Di1219 1F N=34 OR N-35 OR N-36 OR N=43 OR N=44 OR N=45 O UF 
$:LOCATE 19, 19:PRINT P$:LOCATE 4,21:PRINT P$:LOCATE 7,2 DR N=52 OR N=53 OR N:54 THEN 11229 ELSE 11239 


L:PRINT P$:LOCATE 19,21:PRINT P$ U 11228 IF J=1 THEN RG-RB-1 ELSE BB-B8-1 )DV 
19499 T(55)=3:T(56)=3:T(57)=3:T(64):3:T(65)=3:T(66)=3:T >XG F 11239 IF N=55 OR N=56 OR N-57 OR N=64 OR N-65 OR N-=66 D DUR 
(731=3:T(741=3:T(75)=3:1F J=1 THEN C(9)=1 ELSE C(9)=2 I R N=73 OR N=74 OR N=75 THEN 11248 ELSE 11259 

18419 GOTO 12999 > AB l 11248 IF J=1 THEN R9=R9-{ ELSE B9=B9-1 >DB 


19428 IF N=58 OR N:-59 OR N-69 OR N-67 OR N=68 OR N=69 0 >XG j 11258 IF N=58 OR N=59 OR N-69 OR N=67 DR N=68 OR N=69 O >XJ 
R N=76 OR N=77 OR N=78 THEN 19439 ELSE 19489 R N=76 OR N:=77 OR N=78 THEN 11269 ELSE 11279 


19438 IF J=1 THEN B19=B19+1 ELSE R1B=R19+1 GR À 11268 1F 3:41 THEN RI9-R18-1 ELSE B19-B19-1 )GY 
19449 IF B19>4 OR R194 THEN 19459 ELSE 12999 HG D 11279 1F N-61 OR N:62 OR N-63 OR N=79 OR N:71 OR N-72 0 UZ 
18458 LOCATE 13,17:PRINT PS:LOCATE 16,17:PRINT P#:LOCAT KQ  R N-79 OR N-89 OR N:81 THEN 11285 ELSE 12809 

E 19,17:PRINT P$:LOCATE 13,19:PRINT P#:LOCATE 16, 19:PRI D 11289 IF J=1 THEN RI1=R11-1 ELSE B11-B11-1 GE 
NT P$:LOCATE 19,19:PRINT P$:LOCATE 13,21:PRINT P$:LOCAT E 11997 ‘ )FC 
E 16,21:PRINT P$:LOCATE 19,21:PRINT P$ p 11998 ” fin de partie >FD 
19469 T(58)=3:T(59)=3:T(69)=3:T(67)=3:T(68)=3:T(69)=3:T AE p 11999 ? )FE 
(76)=3:T(77)=3:T(78)=3:1F J=1 THEN C(19)=1 ELSE C(19)=2 I 12898 FOR 1=4 TO 19 STEP 3:1F C(1-1)=J AND C(I)=J AND C >PH 
18475 GOTO 12999 JAH À (I+1)=J THEN 12849 

18488 1F N-61 OR N=62 OR N=63 OR N:79 OR N:71 OR N=72 0 DWD À 12919 NEXT:FOR 1=6 TO 8:1F C(1-3):J AND C(1)=J AND C(1+ DMU 
R N=79 OR N=89 OR N-81 THEN 18498 ELSE 12899 D 3-5 THEN 12949 

19499 IF J=1 THEN B11=B{1+1 ELSE R11=R11+1 GC À 12928 NEXT:1F C(3)=J AND C(7)=3 AND C(11)=J THEN 12949 DUC 
18568 IF B1194 OR R11>4 THEN 19519 ELSE 12998 LE | 

19519 LOCATE 22,17:PRINT P$:LOCATE 25,17:PRINT P$:LOCAT DKM E 12938 IF C(5)=J AND C(7)=J AND C(9)=J THEN 12849 ELSE 1 DYA 
E 28,17:PRINT P$:LOCATE 22,19:PRINT P$:LOCATE 25,19:FRI 2888 

NT PS:LOCATE 28,19:PRINT PS:LOCATE 22,21:PRINT PS:LOCAT  g 12948 IF NJ=1 AND J=2 THEN 12979 )XL 
E 25,21:PRINT P$:LOCATE 28,21:PRINT P$ | 12959 PEN 3:LOCATE 3,25:PRINT "BRAVO !"+SPACES$(22):PEN >VQ 


19528 T(61)=3:T(62):3:T(63)=3:T(78)=3:T(71)=3:T(72)<3:T >2Y I J:LOCATE 11,25:PRINT T$(J):FOR i=1 TO 19:FOR j=298 TO 1! 
(79):3:T(89)=3:T(81)=3:1F J=1 THEN C(11)=1 ELSE C(11)=2 STEP -19:SOUND 2,j,1,12:NEXT j:NEXT i 


19538 GOTO 12999 DAE 4 12968 GOTO 12118 )AG 
19997 >FB D 12979 PEN 2:LOCATE 3,25:PRINT "J'AI GAGNE !"+SPACES(17) DTL 
19998 * effacement d'un trou >FC D :FOR i=1 TO 49:SOUND 5, ix12,18,12:NEXT:GOTO 12119 

18999 ? >Fp D 12988 FOR 1=3 TO f1:1F C(1) THEN NEXT ELSE 12199 >MJ 
11998 T-9 )EE | 12998 PEN 3:LOCATE 3,25:PRINT "PARTIE NULLE !"+SPACES(1 DBT 


11919 T=T#12IF TCTCOJA AND TCB1 THEN 11919 ELSE 11929 oUB g S)ENV 1,1,15,1,1,9,1,1,9,1,12,-1,2:F0R j11 TO S:isf4 
11829 IF T989 THEN 9389 ELSE IF J=1 THEN 11998 ELSE 119 OI 4 ÿ.5:5OUND 1,195, i,1,1:NEXT j:GOTO 12118 


38 | 12189 IF J=1 THEN 5998 ELSE 4999 >UD 
11938 IF NJ=1 AND J=2 THEN 11849 ELSE 11999 62 , 12118 FOR 1=1 TO MMWS:NEXT >TH 
11848 F-0:F1=198:F2=9 >px M 12128 T$=INKEYS:IF T$="0" THEN RUN 179 ELSE IF T$="N* T JE 
11958 F1=F1+1:1F F1<189 THEN 11959 >2k D HEN CLS:END 

11869 F1-0:F2=F2+1:F=2-F:PEN F:LOCATE 3#X0+1,2#Y0+3:1F DLJ D 12138 PEN 1:LOCATE 3,25:PRINT "UNE AUTRE PARTIE ?:(0/N) DQP 
T(N)=4 THEN PRINT V$ ELSE 6998 D ":GOTO 12129 eu 
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DE TERRAIN 





Christian GINESTET 


Valable pour CPC 464 - 664 - 6128 





Au détour d’une page de revue spécialisée ou de publication scientifique, 
nous avons tous découvert avec curiosité et souvent envie les entrelacs 
esthétiques et organisés des modèles numériques de terrain. 


ncore aujourd'hul, Il est plus habituel de les 
E rencontrer dans le silence feutré des laboratoires 

que dans une parution dévouée à un ordinateur 
grand public. 
Au-delà d'un louable souci de démocratisation, la 
réalisation d’un programme de modèle numérique de 
terrain (ou MNT) de qualité professionnelle sur CPC 
implique la résolution de deux problèmes pratiques : tenir 
compte d'une capacité mémoire limitée (ces logiciels 
en sont fort gourmands) et d'un temps de travail raison- 
nable (graphismes et calculs matriciels n'étant peut-être 
pas les qualités majeures de notre ordinateur). 


Le principe retenu doit beaucoup au bon docteur Guil- 
lotin : J'ai séparé la tête du corps | La première calcule, le 
second dessine. 

La tête génère une carte numérique de terrain en 
quelques dizaines de secondes grâce à une petite matrice 
mobile ou KERNEL qui pratique le miracle de la multipli- 





KERNEL au travail. 
Doc. 1 - Derrière les nombres, se cache un plateau de 
massif ancien ! 
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Doc. 2 et 3 - Son expression graphique avant et après 
interpolation. 


cation des pains. Pour un canevas de 324 données, le 
programme KERNEL nous en offre 4761, valeur largement 
suffisante pour bâtir un modèle de qualité (doc. 1,2 et3). 


A son tour, le logiciel graphique MNT entre en action. Le 
procédé retenu est original et rapide. Ellminant toutes les 
traces parasites, il restitue en quelques minutes un relief 
tridimentionnel en fil de fer au maillage d'une bonne 
finesse. La page écran réalisée est sauvegardée auto- 
matiquement et la commande turbochargeur permet 
de rappeler à tout moment le bloc-diagramme. Les 
fichiers-Images étant compatibles avec OCP ART STUDIO 





et VIDI, ces derniers serviront à l'impression ou pour 
d'éventuelles retouches. 


Un utilitaire digne d'intérêt offre généralement les choix 
les plus divers et ces deux logiciels n'échappent pas à la 
règle. Le cartographe enherbe se laissera guider parune 
théorie de menus déroulants disposés en arborescence, 
Conviviaux, les deux programmessontliésl'un àl’autre et 
devront être sauvegardés sur Un même support (Une 
disquette de préférence). Ils possèdent untronc commun 
regroupant trois grandes options : 

- générer l'une des cartes numériques disponibles 

- réaliser son propre modèle. 

- tirer parti des délices cachés des nombres réels en 
jouant avec centésigraphe. 


KERNEL comprend sept matrices numériques prêtes à 
l'emploi, trois appartiennent à l'espace tarnais, départe- 
ment aux topographies variées. 

Le Sidobre est un plateau granitique entaillé de gorges 
profondes, gros fournisseur de pierres tombales et de 
bordures de trottoir (doc. 3) 1 

Le dème de la Grésigne, lieu empreint de majesté, 
domine les causses calcaires que tranche la vallée de 
l'Aveyron. 

Troisième paysage tarnais, le fossé du Thoré, véritable 
plège à nuages ouvert aux vents d'ouest, mérite blen sa 
réputation de ‘pissaire del Boun Diou”, 





Doc. 4 - L'œil du Cyclope domine la Sicile. 


De plus le programme rend un hommage mérité à deux 
grandés reliefs volcaniques : en Sicile, l'Emna dont la Boca 
Nova culmine à 3448 mètres (doc. 4) et dans l'Ile de La 
Réunion, le Piton de la Fournaise volcan complexe aux 
cratères emboîtés qui coiffe un point chaud. 


Les deux derniers modèles se singularisent, en sortant 
quelque peu des sentiers battus. L'un représente le débit 
de l'Amazone à Obidos et l'autre, le passage d'iun 
typhon au sud du Japon. 

La première des deux Images de «synthèse» nous fait 
découvrir le fleuve le plus puissant du monde, grâce aux 
Jjaugeages réalisés par les Ingénieurs américains en juillet 
1963, véritable prouesse de l'hydraulique moderne 
(doc. 5). 





Doc.5 - Quand un MNT devient MNQ (ou modéle 
numérique de débit) : l'Amazone à Obidos 
(vue parlielle). Le débit est représenté en élévation. 
Le fleuve a une largeur de 1400 m pour une profondeur 
moyenne de 48 m. 


La deuxième matérialise le champ de pression atmo- 
sphérique au Sud de l'archipel nippon. Elle montre le 
passage d’un typhon, dépression d'origine tropicale aux 
effets souvent dévastateurs. 


L'utilisateur curieux des nouvelles techniques géographi- 
ques souhaitera rapidement mettre «la main à la pâte». 
Dès l'instant où la lecture de la carte topographique lul 
est familière, tous les espoirs lul sont permis. 

Pour faciliter le travail, toujours fastidieux, de saisie des 
données, KERNEL intègre une option correction pour 
modifler à tout moment une valeur du fichler numérique. 
Les moins méthodiques ne verront que peine et sueur 
dans ce travail méticuleux (labor improbus omnla vincit). 
Qu'ils lancent sur l'ordinateur le sous-programme centé- 
sigraphe. 


Ce dernier explore l'univers graphique des fonctions 
mathématiques sans rien céder à la mode des fractales. 
Véritable générateur «d'altitudes», Il fonctionne de ma- 
nière aléatoire fractionnant les nombres réels fruits de 
relations plus ou moins complexes (selon votre désir). Il 
crée ainsi un monde numérique imprévisible. Dans la 
pratique les paysages obtenus appartiennent à un «ordre 
chaotique». En un mot, on saupoudre un peu de hasard 
tout en semant dans la mathématique pour récolter des 
images artificielles étonnantes certes par leur diversité 
mais surtout par le jeu de relations qui les caractérisent 
(doc. 6). 





a) ins 


Doc. 6 - Passés au fil du rasoir, les nombres réels 
génèrent de bien curieux paysages artificiels. 
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Cette liberté créatrice est valorisée par un large éventail 
de possibilités graphiques. Désirons-nous changerl'angle 
de vue, modifier l'orientation, exagérer ou minorer l'am- 
plitude des hauteurs ? MNT s'exécute sans ciller. 


Le choix se porte d'abord sur les différentes vues en 
perspectives : cavalière, oblique ou plongeante, puis sur 
les quatre orientations cardinales sans négliger les repré- 
sentations symétriques (horizontale et polaire). 

Une alternative (microméga) mérite explication. Pour 
des raisons pratiques ou esthétiques, Il est parfois souhail- 
table d'augmenter ou de réduire l'échelle des hauteurs. 
Un paysage de plaine ou de bas plateau aux pentes peu 
déclives mérite un regard contrasté : macrorellef y pour- 
voit. 

Plus exceptionnel, microrelief a tout d'une option jivaro. 
Elle réduit l'amplitude durelief en adoucissant les formes. 
Ce choix s'impose souvent pour des surfaces mathéma- 
tiques complexes à fortes pentes quand l'ordinateur fuit 
dans l'Invisible en dessinant hors des limites du champ 
graphique. 

Enrésumé, le programme MNT, véritable arlequin, autorise 
àl'écrancenthuitreprésensations différentes d'un même 
modèle numérique (doc. 7) | 
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Que le lecteur néophyte se rassure, il ne se perdra pas 
dans le dédale des menus. Avant tout didactique, la 
conception de KERNEL et de MNT se fonde surl'effilcacité 
du trait au nom du confort de l'utillsateur. 
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Doc. 7 - Kouen-lun et Takla-Makan : huit des cent 
quatre représentations d'un même bloc-dlagramme. 


KERNEL.BAS 


18 KERNEL 

28 

38 par 

4g 

58 ! CHRISTIAN GINESTET 
68 

78! Tous droits reserves. 
89 


98 POKE &ACSB, 1 


199 * ENCRES POUR MONITEUR VERT SINON MODIFIER EN CONSE 


QUENCE, 

119 DEFINT A-T:MODE 1:INK 9,24:INK 1,9:BORDER 24:DIM H( 
69,69) 

129 ? PRESENTATION PAGE 1 

139 TAG 


149 A=32:B=78:C=1:D=569:E=286:S-65 : 1-69 
159 GOSUB 212 

169 C=8 

179 FOR J=1 TO 18 

189 READ A,B,D,E 

199 GOSUB 2129 

289 NEXT J 

219 A=352:B=339:C=1:D:26:E=-166 

229 PLOT A,B 

238 FOR 1=1 TO 59 STEP 2 

249 DRAWR D,E,C:MOVER -D,-(E+2) 

258 NEXT | 

269 TAGOFF 

278 GOSUB 218 

289 * PRESENTATION PAGE 2 

298 FOR 1=1 TO 23 

389 LOCATE 1,1:PRINT STRING$(I,CHRS(295)) 
319 NEXT | 

328 RESTORE 3964:P-19 

339 FOR M=2 TO 29 

349 READ N$ 

358 FOR N=39 TO P STEP -{ 

369 IF N$="+#" THEN N$:CHR$ (32) 

378 LOCATE N,M:PRINT N$;SPC(L):NEXT N:P=P+1 
389 NEXT M 

398 J=23:K=1 

488 FOR 1=16 TO 39 

419 LOCATE I,K:PRINT STRING$(J,CHR$(285)) 
429 J=J-1:K=K+1 

438 NEXT | 

449 GOSUB 2189 

458 ? MENU 

469 MODE 2:CLS 

479 X=238:11=4:12=22:F=25 

489 GOSUB 2279 


498 LOCATE F,11+5:PRINT"1 ) MODELE NUMERIQUE DE TERRAIN DEA m 1848 LOCATE F,11+13: INPUT" 





SB9 LOCATE F,11+7:PRINT"2 ) CREER UNE CARTE NUMERIQUE " DDY 


519 LOCATE F,11+9:PRINT"3 ) CENTESIGRAPHE " >MH 
m 529 LOCATE F,1L#H1:PRINT"4 ) APPELER MAT >KU 
= 538 LOCATE F,11+13:PRINT"S ) THAT'S ALL FOLKS" >RK 
m 549 LOCATE 27,11+15:INPUT" Indiquez votre choix : )JJ 
mn 559 IF A1€1 OR A135 THEN GOTO 464 DYF 
= 569 GOSUB 2189 )QD 
n 578 ON A1 GOSUB 599,979, 1219, 2949, 2059 >DX 
>La m 589 ? HENU )TD 
Le ® 599 X=292:11=1: 12-24 >ND 
>Lc m 689 CLS >UA 
LD ® 618 GOSUB 2279 >PK 
)LE m 629 LOCATE F,11+5:PRINT"1 ) LE SIDOBRE " IN 
LF 639 LOCATE F, [1+7:PRINT"2 ) LA GRESIGNE " KG 
>LG m 649 LOCATE F,11+9:PRINT"3 ) LE FOSSE DU THORE " TU 
ÿLH ® 658 LOCATE F,11+11:PRINT"4 ) L'ETNA " )EQ 
5vG m 669 LOCATE F,11#13:PRINT"S ) LE PITON DE LA FOURNAISE " )CW 
yrg ® 679 LOCATE F,11#15:PRINT"6 ) L'ANAZONE À OBIDOS " >UU 
m 689 LOCATE F,11+17:PRINT"7 ) UN TYPHON SUR LE JAPON " DAL 
>Ep m 698 LOCATE F,11+19:PRINT"B ) MENU PRINCIPAL * >QN 
: 789 LOCATE F,11+21: INPUT" Indiquez votre choix : )IN 
DER 
vre m 719 IF A1C1 OR A1)8 THEN GOTO 698 )YC 
»GE = 729 GOSUB 2189 >QB 
vpc m 739 ON A1 GOSUB 749, 789,819,840,870,999,939 HE 
>8 = 749 RESTORE 3979 LC 
)ck 759 TITRE DES CARTES NUHERIQUES )TC 
>EA m 769 T$="SIDOBRE":L=599 >RW 
)pG © 776 GOSUB 2864:G0T0 1439 >RU 
)NB = 789 RESTORE 3269 >LH 
)YD % 799 T#="GRESIGNE" :L:599 DTY 
)BH m 629 GOSUB 2869:G0T0 1438 >RN 
gp 619 RESTORE 3459 )LC 
)iP m 829 T$="THORE":L:599 )PT 
»nF = 839 GOSUB 2869:G0T0 1439 )RR 
>vc m 649 RESTORE 3649 )LG 
>Q8 = 859 T$="L'ETNA":L=609 >PX 
TA mn 868 GOSUB 2864:G0T0 1439 >RV 
>CH æ 879 RESTORE 3838 DLL 
KE ® 689 T$="PITON":L:259 >PK 
DNC m 699 GOSUB 2869:GOT0 1439 )RY 
>Qk ® 999 RESTORE 4929 >LW 
DCE m 919 T$="AMAZONE" )LN 
>ac = 925 GOSUB 2869:G0T0 1439 >RR 
>RD = 939 RESTORE 4218 )LA 
>yy ® 948 T$="TYPHON" LE 
>HN 959 GOSUB 2869:G0T0 1439 RU 
)PD m 969 * MENU DTF 
BK & 979 X=206:11=5:12=22 >PD 
DLU m 989 CLS )UB 
KL © 995 GOSUB 2279 >RA 
)BA m 1999 LOCATE F,[1+5:PRINT"1 ) ENTREE DES ALTITUDES ( 18 JB 
NF #18)" 
)QA m 1219 LOCATE F,11+7:PRINT"2 ) RETOUCHE ( 69 x 69 )" DUT 
>RK ® 1929 LOCATE F,11+9:PRINT"3 ) CHARGER UN HNT ( 69 à 69 ) >BJ 
DD = 
>uK m 1838 LOCATE F,11+11:PRINT"4 } SAUVEGARDE DU MNT ( 69 x )GL 
DE mn 69 )" 
Indiquez votre choix : ", >KY 
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il m 1599 * INTERPOLATION »YH 
1858 IF ALCI OR ALD4 THEN GOTO 989 7m (688 AH, 1) >GF 
1969 GOSUB 2189 >xam 1619 B=H(1,7+4) uB 
1878 ON A1 GOSUB 2309, 2489, 2688, 1198 8m L029 CEH(I44, 144) LH 
1989 IF A1)1 THEN GOTO 978 yrqm 1639 D=H(1+4,J) UF 
1808 ' MENU yc "1648 A1: (MB)/2 RF 
1199 X=297:11=5:12=19 spym 1659 A2=(A+A1)/2 »28 
1118 CLS ac w 1668 AS=(B+AL)/2 )2E 
1139 LOCATE 29,1145:PRINT"ECHELLE : DISTANCE EN METRES Duc" BB B2=(B+B1)/2 2H 
ENTRE DEUX" = 1698 B3=(C+B1)/2 AA 
1148 LOCATE 29,11+7:LINE INPUT" RELEVES = > ere 1798 C1=(C+D)/2 )RJ 
",L$ mn 1719 C2=(C+C1)/2 )ZE 
1158 LOCATE F,I1+11:LINE INPUT "NOM DU MNT pe Tee CS DIENE 2H 
rt = 1739 D1=(D+A)/2 DTA 
1168 LVAL(L$) >rx m 1748 D2:(D4D1)/2 AA 
1179 IF A1:1 THEN 1439 ELSE GOSUB 2749 )ca m 1758 D3=(D1+A)/2 >ZK 
1188 GOSUB 2189 >xn m 1765 E=(B2+D3)/2 AD 
1198 GOTO 479 F4 mn 1779 Ei=(E+D3)/2 YAG 
L29B * CENTESIGRAPHE jp a EAP >AF 
1218 X=199:11=8:12=16 >PY 1798 F=(D1+B1)/2 D AE 
1228 GOSUR 2279 >yy m 1898 F1: (D1+F)/2 )AA 
1239 LOCATE F, [1#5:LINE INPUT"NOUVELLE EQUATION € O/N ) Ha w 1818 F2=(B14F)/2 AA 
1248 CLS 2e ® 1838 G1-(6+D2)/2 AG 
1259 H$=UPPERS (MS) : IF LEFTS(MS, 1)="O" THEN LIST 1318  UA m LB49 G2=(6+B9)/2 AH 
1268 RANDOMIZE TIME >p ® 1859 H(I,J+1)=A2 >Ck 
1279 K=((RND(L)#18)\2)#1 eo m 1668 H(I,J+2)A1 >DA 
1289 FOR 1:1 TO T STEP 4 >qc = 1879 H(1,J+3)=A3 DE 
1299 FOR J=1 TO T STEP 4 QE mn 1682 H(I+1,/)-D3 )DG 
1399 X=(RND(1)+198) >, m 1899 HI+1,J41)2E1 >LQ 
1319 Y= CH 4COS(X) nc mn 1908 HCI+1,J+215E )LK 
1329 Y=Y+100000 y m 1919 H(1+1,J+3)<E2 >LL 
1339 Y$=STRS(Y) SDF = 1928 H(1+1,J+4)=B2 >LK 
1349 YS=MIDSCYS,K, 3) >y m 1939 H(I+2,9)=D1 >DB 
1359 Y=VAL(Y$) SUE = 1949 HCI+2,/+1)=F1 >LN 
1369 G:5 )VJ # 1959 H(1+2,J+2)=F LT 
1379 BORDER 7+(1\4) > mn 1968 HC1+2,/+8)F2 )LU 
1389 H(1,J)=Y KE = 1979 H(1+2,3+4)=B1 »LQ 
1398 NEXT J uk "1988 H(1+3,1):D2 DJ 
1499 NEXT | >ya m 1998 H(1+3,741)261 )LU 
1419 T$=STRS(Z) ,pa # 2898 HC1+3,J#2)-G DLF 
1429 2=241 nc m 2219 H(1+3,743):62 LG 
1439 ? JAUGE YA" 2828 H(1+3,J+4)=B3 )LE 
1448 MODE 1 )PE = 2938 H(1+4,J+1)=C3 SLE 
1459 CLS ZX " 2849 H(1+4,J+2)=C1 )LE 
1468 LOCATE 5, 18:PRINT"£" sur mn 2259 H(+4,743):02 >LH 
1479 LOCATE 29, 19:PRINT'58" jus m 2468 NEXT SEK 
L4BB LOCATE 37,19:PRINT" 1994" pr 9 2678 NEXT LA 
1499 X:127:X$2STRING# (36, CHRS (1) RG 222 Pr UP xD 
1598 LOCATE 4,11:PRINT X$ TE mn 2098 GOSUB 2749 KG 
1519 LOCATE 4, 12:PRINT CHR$(X) yyy = 2198 GOTO 468 DE] 
1529 LOCATE 39, 12:PRINT CHRS(X) ÿ7g 2119? SOUS-PROGRAMME PAGE DE PRESENTATION »XG 
1538 LOCATE 4,13:PRINT X$ )UB . eue Re 
#. A" : : >0D 

ee UE EU TAUPE F2 2149 DRAUR D,D,C:MOVER -D,2 DUF 
1568 FOR J=1 TO S STEP 4 >qp 2159 NEXT | D) 
1579 PRINT CHR$(143)+CHR$ (143) ; \yy 5 2168 RETURN FC 


1588 FOR 1:1 TO S STEP 4 QE = 2179 ” SCROLLING »YC 


32 


2188 FOR 1=1 TO 2589: NEXT 
2198 FOR 1=1 TO 59 

2298 LOCATE 1,1 

2218 FOR J=1 TO 3 

2228 NEXT J 


2239 PRINT CHR$(2)+CHR$(11) 


2248 NEXT 
2258 RETURN 


2268 ' MISE EN IMAGE DES MENUS 


2278 X$=STRING$ (62,CHR$(X) ) 


2288 LOCATE 19,I1:PRINT X$ 
2299 LOCATE 19,12:PRINT X$ 
2308 XS=STRINGS(2,CHRS(X)) 
2318 FOR 1=11 TO 12 

2328 LOCATE 19,1 :PRINT X$ 
2334 LOCATE 79, I:PRINT X$ 
234 NEXT | 


2358 LOCATE 35,11+2:PRINT"- MENU -" 
2368 LOCATE 37,11+3:PRINT " 


2379 RETURN 

2384 ' ENTREE DES DONNEES 
2398 X=293:11=8:12=15 
2498 GOSUB 2279 

2419 FOR 1=1 TO 18 

2428 FOR J=1 TO 18 


2438 LOCATE F,11+5:PRINT"LIGNE “I"COLONNE "J; : INPUT " : 


",H(,9) 


2449 LOCATE F,11+5:PRINT STRINGS(35, CHR$(32)) 


2459 NEXT:NEXT 
2468 RETURN 


2478 * MODIFICATION DES DONNEES 


2488 CLS:X=164:11=3: 12-28 
2499 GOSUB 2278 


2598 LOCATE F,11+5: INPUT" NUMERO DE LIGNE 


> !,I 


2518 LOCATE F,11+7: INPUT" NUMERO DE COLONNE 


> Ml 


2529 LOCATE F,11+18:PRINT" ANCIENNE VALEUR 


=) "sePRINT H(I,J); 


2539 LOCATE F,11+12: INPUT" NOUVELLE ALTITUDE 


=) !,H 
2548 H(1,J)=H 


2559 LOCATE F,11+15: INPUT" AUTRE VALEUR A MODIFIER ( 


N)",H$ 
2568 MS=UPPERS (HS) 


2579 IF LEFT$(M$,1)="N" THEN GOSUB 2189 ELSE 2489 


2588 RETURN 

2599 ? CHARGEMENT DU MNT 
2698 X=127:11=8:12=15 
2619 GOSUB 2279 


0/ 


2628 LOCATE F,11+5:LINE INPUT"CHARGEMENT DU MNT : ",T$ 


2639 PRINT("") 

2649 OPENIN T$ 

2659  INPUT#9,L 
2669 FOR 1=1 TO T 
2678 FOR J=1 TO T 
2688 INPUT4#9,H(1,J) 
2698 NEXT:NEXT 
2769 CLOSEIN 


DUU 
)UB 
DVE 
DE 
DAF 
)FF 
DYF 
)PC 
JWK 
>LK 
)LH 
MF 


NF 
>HK 
)FF 
YF 
JUA 
XJ 
DFY 


GX 


)Z6 


)JG 
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2718 GOSUB 2189 XD 
2728 RETURN )FE 
2739 SAUVEGARDE DU MNT NYE 
2748 TS=LEFTS(TS,8) JNH 
2759 L=(L*+18)\1998 )LG 
2768 OPENOUT T$ )GD 
2779 WRITE#9,L >2F 
2789 FOR I=:1 TOT >GA 
2798 FOR J=1 TO T )GC 
2804 VRITE#9,H(1,J) NT 


2819 NEXT J )VH 
2829 NEXT | >VH 


2839 CLOSEOUT )ZD 
284 RETURN FH 
2858 ' LECTURE MATRICE )YH 
2868 FOR 1=1 TO T STEP 4 )QH 
2878 FOR J=1 TO T STEP 4 > 
2888 READ Hi1,J) )DK 
2899 BORDER 7+(1\4) )ND 
2998 NEXT J >VH 
2918 NEXT ! >VH 
2928 RETURN )FG 
2938 ? APPEL MNT »YG 
2949 RUN "MNT" )TA 
2958 END ZE 
2969 ‘ DONNEES PAGE DE PRESENTATION JYK 
2979 DATA 42,78,22,149,42,278,22,94 AV 
2989 DATA 66,218,6,52, 72, 148,17,172 AL 
2999 DATA 99,78, 47,286, 148, 122, 24,98 )BM 
3809 DATA 148,268, 24,59, 172,78, 79,286 )CY 
3919 DATA 258, 78,14,92, 254,228, 8,98 )AF 
3829 DATA 288,78,68, 149, 272,218,68, 146 )DE 
3939 DATA 352,78, 24,266, 384, 78,66, 286 )CV 
3849 DATA 462,124, 24,96, 462, 278,24, 4B CT 
3958 DATA 486, 78,66, 286,566, 122, 26, 242 )DA 
3869 DATA #,C,H,R,1,S,T,I,A,N,4,G,I,N,E,S,T,E,T )QQ 
3979 ’ LE SIDOBRE )YC 
3889 DATA 378,382, 309, 375,429, 328,459, 389,589, 449, 388,4 DEV 
82,398,595, 455, 488,538, 578 

3898 DATA 498,365, 289, 368,329, 495,329, 469,475, 499, 498,3 )EB 
58, 489, 499, 489, 475,562, 569 

3199 DATA 388,360, 278, 385,328, 418,299, 452, 368, 485, 482,3 DEK 
62, 359, 499, 483,529, 539, 589 

3119 DATA 318,329, 399, 232,269, 495,269, 328, 429,492,515,5 DEC 
96, 399, 485,559,565, 589,519 

3129 DATA 362,299, 249,299, 228, 289, 232, 288, 495, 448,499, DEC 
517,396, 489, 475,529, 518, 449 

3138 DATA 354,399, 349, 225,215,218,225, 229, 234, 249, 398, 4 DEG 
28,288, 499, 299, 486, 479, 398 

3149 DATA 347,369, 398, 229,218, 212,365, 418, 328,245, 253,2 DEU 
65,272,285, 365, 295, 393, 412 

3158 DATA 348,329,236, 218,212, 245,369, 498, 418,329, 328, 4 DDN 
23, 328,449, 479, 499, 369, 489 

3168 DATA 245,253, 258, 299,248, 204,249, 363, 448,488, 442,4 )EQ 
79,491,482,536,492, 463,571 

3178 DATA 263,234, 298, 249, 205, 293,318, 428, 368, 438, 473,4 DEE 
78,485,512,528,5586, 562,598 

3188 DATA 261,287, 245,285, 248, 325, 282, 291, 278, 368,348, 4 DDG 
65,539,538, 699,566, 579, 629 





3199 DATA 225, 296, 232, 296, 329, 365, 389, 378, 298,330, 318,4 DL 
58,438,499,519,538, 589, 609 

3299 DATA 252, 286, 206, 322, 318, 395, 499, 365, 190,229, 328, 4 DEF 
09, 489,539, 588,578, 558, 599 

3218 DATA 243,277, 289, 338, 329, 368, 389, 198, 329, 215, 352, 4 DEG 
70,549,529,569,606, 627,629 

3228 DATA 295, 245, 275, 290, 389, 238, 329, 197, 378,409, 488,5 DEA 
15,488,509,585, 569,555, 565 

3239 DATA 198, 191, 192, 193, 194, 195, 196, 272, 358, 459, 475,4 DEB 
79,539,525, 559,630, 658, 689 

3248 DATA 198, 249, 249, 255, 243, 288, 315, 329, 429, 449,508,5 )DH 
19,530,545, 570, 590,600, 618 

3258 DATA 199, 299, 249, 258, 263, 284, 339, 361, 385, 495, 492,5 DEX 
12,481, 496, 490, 521,693, 595 

3268 * LA GRESIGNE 
3278 DATA 274,275, 274,263, 262, 256, 241, 229, 166,088, 129,1 
68, 238, 265, 209, 349, 288, 284 

3288 DATA 274,275, 274,263, 269, 256, 241, 222, 168,088, 129,1 
48, 189, 242, 268, 276, 262, 284 

3299 DATA 274, 289, 274, 279, 278, 286, 283, 262, 298, 198,987, 1 DEN 
18, 149,175, 249, 286, 284, 270 

3309 DATA 262, 268, 281,282, 278, 274, 278, 272, 262, 248, 199,1 DEP 
28,987,129,190, 199, 188, 229 

3319 DATA 256, 261, 284, 288, 295, 276, 272,268, 264, 261,239, 1 DEA 
98,118, 787,180, 169, 138, 136 

3329 DATA 266, 249, 288, 369, 383, 299, 272,258, 242,198, 182,1 DA 
78,129, 087, 199, 129, 208, 220 

3339 DATA 259, 292, 289, 292, 381,349, 260,260, 109, 086,086,9 >DT 
86,086, 966, 126, 189, 248, 289 

3349 DATA 238, 188, 263, 285, 287, 299,258, 180,086, 148,195, 1 DT 
18,129, 158, 178, 199, 242, 385 

3359 DATA 236, 159, 219, 230, 239,252, 229,085, 139,249, 239,1 DDF 
58, 199, 298, 284,159, 249, 299 

3369 DATA 299, 128,985,985,085, 219, 180,985, 139, 298, 369, 2 
55,189, 218, 216,159, 168, 289 

3374 DATA 189,985, 129, 269, 318, 249, 206, 168, 209, 338, 305, 2 
18,195, 230,250, 249, 288, 283 

3389 DATA 139,985, 129, 241,329, 323, 322, 328, 230, 399, 335, 2 
19,229, 308, 295, 286, 296, 315 

3399 DATA 984, 195, 168, 209, 309, 325, 332, 342, 336, 342, 341, 2 
58, 229, 300, 329, 289, 299, 340 

3409 DATA 139,169, 249,259, 218, 268, 284, 398, 339, 335,342, 3 
98, 229,319, 349, 309, 315,325 

3419 DATA 249,269, 280, 309,319, 329, 349,340, 339, 345,390, 3 DDF 
38, 250, 289,370, 359, 349,378 

3429 DATA 262, 289, 325, 349, 358, 362, 372,366, 399, 499,429, 4 DV 
68,350, 348,495, 409, 378,415 

3439 DATA 268, 398, 319, 389, 329, 369, 365, 386, 389, 398, 449,4 )DH 
28,422, 418,415, 419, 275,429 

3449 DATA 229, 208, 268,359, 349,329, 322,368, 389, 408, 429, 4 
08,395, 439, 445, 422, 428, 426 

3458 ? LE FOSSE DU THORE )YE 
3469 DATA 183,245, 249, 243,259, 208, 283, 308, 328, 329, 275,2 DEA 
85, 336, 274,318, 360, 449, 499 

3479 DATA 184,196, 249, 219, 278, 238, 279, 299, 286, 329, 248, 2 DEM 
99, 289, 325, 329,419, 435, 368 

3489 DATA 185, 198, 259, 245, 285, 288, 229, 269, 249, 235, 238,3 DDG 
26,245, 328, 280,315, 499, 335 

3408 DATA 298, 186, 187, 188,189, 198, 215, 219, 295, 293, 218,2 DT 


)YD 
)EV 


)EY 


DA 


29,225, 249, 243,338, 329, 338 

3598 DATA 245,198,197,219,293, 295, 191, 192, 193, 195, 196, 1 DEK 
97, 209,292, 294,259, 245, 249 

3519 DATA 235,259, 249, 215,235, 225,215, 298, 293, 219, 292,2 DDE 
95,219,218, 216,238, 225, 246 

3528 DATA 398,278, 299, 248,238, 247, 239, 228, 239, 249, 232,2 DDV 
24,218,216, 212,298, 249, 243 

3539 DATA 348,315, 289, 268, 242, 258,248, 245, 243,259, 253,2 DE 
49,235, 239, 225,229, 219, 212 

3549 DATA 498,369, 389, 319,275, 288,279, 282, 278,275, 288,2 )EH 
68,259, 245,223, 239, 225, 221 

3559 DATA 618,499,509, 429,399, 319,329, 309, 379, 339, 399,2 DDU 
75,288,235, 255,279, 248, 254 

3569 DATA 645,489,639, 499,569, 449, 459,509, 468, 392, 388,3 >DG 
68,335, 259, 329, 349, 329, 309 

3579 DATA 678,529,689, 588,689, 472,539, 695, 499, 495,435,5 DEP 
18,429,268,449,519, 469, 369 

3588 DATA 718,559, 739,598, 489, 548,625,585,540,600,635,6 DEX 
59,499, 289,328, 460,589, 44g 

3598 DATA 795,658,789,758,569,649,699,609,638,749,678,5 )EQ 
96,499,329, 499,360, 399, 489 

3699 DATA 836,749, 729,885,680, 688,739, 788, 729,685,558,5 )EK 
49, 399,558,605,530, 499,524 

3618 DATA 998,840, 705,848, 729, 778,880, 726,660, 70ÿ,685,5 DEF 
28,449,649,645, 429,459, 569 

3628 DATA 956,880, 895,819,859,898,749,659,648,585,535,4 DEA 
89,569,565, 609, 430,558, 498 

3639 DATA 948,869, 849, 899,789, 749,730, 742,658,689,588,6 DEX 
85,570,529,515, 449,558, 648 

3649 ? L'ETNA DYF 
3654 DATA 98,118, 82,78,68,59,64,55,58,49,58,49,68,58,48 GD 
,49,59,4g 

3669 DATA 99,86, 79,63,59,57,55,53,51,58,47,45,43,48,36, 
28, 29,59 

3679 DATA 89,81,68,67,65,62,68,58,59,57,52, 47,45,58,68, 
58,27, 39 

3689 DATA 78,76, 75,73,71,69,67,65,64,63,69,58,59,65,67, 
49,59, 26 

3699 DATA B6,83,B1,89,81,81,78,77,73,74,68,64,65,68, 80, 
63,69, 42 

3799 DATA 89,92,94,07,199,98,95,99, 87,85, 78, 79,68,64,69 >GH 
,78,89,55 

3719 DATA 194,119,111,113,119,117,118,117,119,199, 
,69,62,56,54,69, 79 

3728 DATA 125,136,133, 148,144, 158,145,141, 133,129, 197,9 DUC 
8,77,66,58,51,59, 42 

3739 DATA 138,159,156,165,171,174, 172,168, 157,139, 124,1 DNG 
87,92,74,68,52,47,38 

3748 DATA 158,161, 189, 192, 195, 198,281,187,179,151,135,1 
28,185,87,72,55, 46, 39 

3758 DATA 168,175,191,212,221, 226,280, 188, 169,158, 138, 1 
25,119,95, 79,58, 42, 33 | 

3768 DATA 169, 182, 297,226, 244, 238,284, 185, 168, 169, 146,1 DYC 
34,119,191,82,68, 41,22 

3778 DATA 165,179,219,241,259, 248,218, 186, 179,161, 158,1 DXH 
35,118,93, 88,63, 49, 28 

3788 DATA 164,178, 222, 276,287, 279,267, 218, 188, 162, 146,1 DXA 
28,181,99,74,53,35,19 

3798 DATA 178,189, 231, 294, 329, 288,251, 212, 199, 169, 144,1 DXN 


92,78 DTX 





23,199,87,73,56,34,16 
3899 DATA 179,199, 235,268, 392,274,229, 168, 173,139, 129,1 
19,95, 69,56,59,35, 15 


3819 DATA 188,191,229,256,284,278,285,175,161,136,124,1 » 


11,89, 74,49, 39,31, 16 

3829 DATA 172,183,211,232,251,248,164,164,155,142,118,1 
91,83,69,41,29,29,14 

3839 ’ LE PITON DE LA FOURNAISE 

3648 DATA 319,325, 342,359, 369,365, 368,365, 357, 349,335,3 
32,315,285,249,299,178,15ÿ 

3859 DATA 339,345,365, 389, 398, 395, 495,419, 392, 369, 379,3 
78,345,325,299,264,218,175 

3669 DATA 352,372,305,41ÿ,422,425,434,45,42ÿ,412,4ÿ4,3 
95,382, 379,350, 304, 249,209 

3679 DATA 369,419,425,445,469,465,479,470,465,45gÿ,uuÿ, à 
35,439,415,385,9329,275,235 


3889 DATA 419,449, 462,497, 599,519,519,519, 545, 499,478, 4 


19,466,445,419,379, 329,255 
3694 DATA 435,469, 545,535,549,545,542,54ÿ,549,539,515,5 
19,549, 485,460, 415, 365,319 


3999 DATA 458,495, 532,558, 565,568, 579,572, 569,545,529,5 DE 


28,520,529, 480, 449, 308, 330 


3919 DATA 469,516,552,586,595,592,586,459,449,4u8,4uÿ,u ; 


48,445,459,510, 469, 418,352 


3929 DATA 485,529, 560,610,620,630, 695,450, 449, 438, 439,4 » 


34,449 ,454,465,469, 420,360 


3939 DATA 468,534,589,619,578,579,609, 455,439, 438,439, à ) 


39,439,438,489,454, 490,350 


3949 DATA 469,529,579,595,579,574,598,5809, 459, 439,430, 4 


38,439,427,478,435, 398,345 


3059 DATA 469,519,550,579,585,565,550,52à, 435, 44, qu, 4 » 


40,439,472,459,425,375,335 
3968 DATA 445,485,529,536,545,55ÿ,545,539,528,521,529,5 
28,499,479,425,435, 369,315 
3979 DATA 429,459,489,496,599,592, 496,592, 599,514,515,5 
19,475, 444,400, 389, 355, 31 


3988 DATA 385,419, 435,455, 469,458, 469,464, 468,475,485,4 »E 


15,445, 495,362, 359,319, 300 


3999 DATA 352,370, 499,41ÿ,418,415,429,416,426,43ÿ,435,4 ?E 


26,499, 369,525, 29ÿ, 268,255 


4909 DATA 319,326, 348, 362,365, 365, 375,372, 389, 382, 389,3 : 


79,959, 325,299,245,228,219 


4919 DATA 269,275,296,319,319,312, 328,321, 328, 326, 322,3 


18,200, 260, 235,245, 185, 165 
4929 * L'AMAZONE A OBIDOS. 

à934 DATA 19,10,39,60,80, 120,138, 169, 29, 242, 256, 269, 28 
0, 290, 282, 330, 289, 269 

a94g DATA 009,080, 30,69, 109, 120,140, 160,218, 258, 265, 269 
,285, 284, 280,272, 256, 269 

4254 DATA 090,000, 20,65, 105, 123,149, 168,218, 269, 265, 279 
,290,280, 278,255, 256, 258 

4968 DATA 098, 020,5, 70,110, 125, 136, 169, 216, 269, 262,275, 
285,272,264, 256,258, 254 

4978 DATA 099, 000,000, 75,112, 128,136, 179, 212, 258, 256,27 
6,282, 262, 256, 262, 278, 268 

2988 DATA 008,090,090,85, 110, 142, 162, 289, 236, 256, 29, 25 
2,254, 270,262, 279, 289, 265 

4998 DATA 906,080, 090, 68, 112, 142, 168, 192, 232, 254, 256, 24 
6,269, 260,270, 270, 256, 258 


35 


4190 DATA 096,909,009,a9,198,149,158,186,228,2ua, 242,26 
9,269,269,269, 265,249, 242 

4119 DATA 096,900, 800,908,199,138,156,184,212,24ÿ,236,2 
66,252,268, 258,269, 238,748 

4128 DATA 996,000, 090,000,95,116, 158, :82,284,22ÿ,2ag,27 
8,259,265,248,242,234, 238 

4139 DATA 900,000, 000,000, 004,99, 1a8,175,155,1£f5,2ai,2a 
9,232, 242, 229,239, 22€, 228 


4148 DATA 908,000, 990, 907,000,058,128,178,!80,208,229,2 1 


29,218,232,216,226, 224,221 


CH 
NUE 
DCE 


ve 


)0r 


4158 DATA 968,000, 000, 000,009, 008,080, 168,166,172,182,2 Mx 


92,292,222, 296,222, 229,299 
4168 DATA 096,980, 000, 000,000, 008,000, 009, 128,169, 152,1 
84,199, 198, 299,229, 216,176 
4178 DATA 996,000, 800,000, 009, 000,000, 000,000, 009,000, ! 
69,179,178,199,219,189,148 
4182 DATA 099,900, 000,000,000, 000, 000,000, 000, 000,090, 
59,996,159,182, 188,809, 009 


4199 DATA 908,000, 009, 000,099, 009,000, 800,000,G09,090,5 ) 


90,009,099,150,159, 900,000 

4298 DATA 096,900, 909, 900,009, 000,009, 000,000, 009, 000,8 
80,009,009,000,006,009, 009, 000,009 

3248 ? UN TYPHON 

4229 DATA 1255, 1258, 1269, 1265, 1268, 1249, 1236, 1245, 1248, 
1233, 1298, 1229, 1216,1228,1229, 1299, 1188,1178 

4239 DATA 1244,124ÿ,1249, 1259, 1249, 1233, 1237,1243,1249, 
1249, 1229,1211,1228,1235,1218,1289,1179,1165 


4249 DATA 1249,1234,1225,1229,1223, 1224, 1230,1242,1251, ) 


1249,1218,1210,1218,1229, 1219, 1180, 1160, 1149 
4259 DATA 1228, 1224, 1221, 1212, 1298, 1202, 1229, 
1218, 1213, 1287, 1203, 1241, 1199, 1165, 1159, 1164 


4269 DATA 1229,1294,1299,1:96,1182,1189,1293,1201,1260, : 


1209, 1193, 1189, 1196,1193, 1170, 1158,1165, 1173 
4279 DATA 1299,1185,1175,1167,1158, 1169, 1178,1176,1166, 
1163,1159,1152,1169,1165,1157,1163,1179,1161 


4288 DATA 1185,1183,1171,1169,1141,1135,1137,1139,1132, + 


1118,1143,1129,1139,1149,1149,1159,1159,11aÿ 


4209 DATA 1163,1160, 1106, 1142, L156 1166 LiËd 1BG4 DOTÉ, Ge 


1978, 1982, 1996, 1199, 1138, 1153, 1168,1176, 1188 


244,1235, 3FY 


4399 DATA 1159,1145,1138,1121,1195, 1989, 1949, 985,969,97 BK 


5,1925,1979,1198,1149,1165,1185,1188, 1198 


4318 DATA 1169,1148,1135,1118, 1909, 1957, 095,029, 895, 899 


,959, 1949, 1999, 1138,1162, 1189, 1186, 1188 


4329 DATA 1162,1146,1139, 1196, 1989, 1949,975,809, 609,699 >YY 


1999, 1922, 1989, 1129, 1159, 1176, 1182, 1186 


4339 DATA 1159,1149,1118, 1909, 1962, 1939, 978,925,819,838 » 


,955, 1939, 1978,1115,1149,1169,1175,1183 


4348 DATA 1136,1122,1199, 1986, 1969, 1936, 1999,978, 968,97 » 


9,1989,1942,19680,1116,1138,1156, 1167, 1176 


4358 DATA 1122,1198, 1996, 1988, 1963, 1942, 1926, 1205, 1999, » 


1998, 1939, 1969, 1984,1115, 1135, 1158, 1169, 1168 


4369 DATA 1198,1998, 1999, 1995,1979,1959,1949,1939,1925, » 


1929, 1955,1979,1198,1129,1149,114a,1152,1158 


4378 DATA 1996,1199,1194, 1199, 1982, 1969, 1953, 1959, 1948, 


1958, 1069, 1984,1118,1125,1143,1148,1146,1144 


4389 DATA 1988,1116,1119,1195, 1002, 1978, 1962, 1961, 1963, > 


1977,1989,1190,1118,1139,1138,1141,1149,1136 


4399 DATA 1199,1106,1115,1197, 1994, 1977, 1066, 1265, 1978, : 


1978, 1999, 1195,1128,1127, 1133, 1135,1131, 1130 0 
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CL] 
m 379 FOR 121 10 3 WA 
MNT.BAS:: 
© m 309 PRINT CHRS(2)4CHRS(11) UM 
M 199 NEXT NC 
m 493? PACE 2 RH 
L” 7 pa "410 FOR 51 T0 13 CB 
2° pa m 429 READ A,B,D,E DH 
3? PRESENTATION RE de 
js pn m 448 NENT J NH 
SE NU © 459 LOCATE 1, 28:PRINT STRINGS (249, CHRS (296) HU 
MIEL gr m 466 FOR 121 T0 209:NENT )Qz 
ee 0 2 465 7 APPEL PROGRANNE PRINCIPAL )TG 
ar em 478 RUN HNTI" >RK 
49 X1=-1:XS=1:X02319: 92200 ANR STE" TITRE ARS 4 
59 INK 8.24: INK 1, B:BORDER 24 jun 9 488 DATA 6,112,54,289,60,279,30,84,99, 234,52, 81, 142,27 V2 
ide ue w 430,84, 172, 112,26, 289 
ere wg 9 495 DATA 224,112,58, 28, 280, 272, 28,84, 318, 239, 28,84, 33 AL 
= 8,189,28,84, 366, 148, 28, 84, 394, 112, 24, 280 
Li) Mens Ve M 589 DATA 526, 112,54,242, 446,354, 186,36 DH 
198 FOR Y=XI TO XS STEP 2/P RU ADS RMRRNRRE du 
128 IF T THEN 158 Jen Ver Re e 
136 PLÔT at YaSr (etes) ga % 522 * SOUS-PROGRAMHE 2 RK 
148 GOTO 169 Ni cer SAT EUR US 
LED DRAM KaUXe VE), KA 24V4S 1 Na ES a 
nue xx m 569 DRAUR D,0, 1:MOVER -D,2 >UD 
ht pe S6P NEXT | We 
199 T=ÿ )E à 
269 FOR Y=X1 TO XS STEP 2/P Km 
219 FOR X=H1 TO XS STEP 2/P Ke : 
Fe MNTI.BAS 
23ÿ IF T THEN 269 DA à 
24ÿ PLOT Kx(X+Yx5),Kx(2+Y#S) NC = 
254 GOTO 274 1 "1h HAT! LA 
268 DRAW KxCX+YxS),Kx(Z+Y#S) ML m 2° ;LR 
200 TELENENT À As 3! par )LC 
280 7-0 "B = 4? kb 
299 NEXT Ÿ "54! CHRISTIAN GINESTET LE 
399 ORIGIN 9,0 0 à 5° SLR 
319 PLOT 226,239: TAG:PRINT"C H R I STI A N'; )PG = 7 Tous droits reserves. LG 
329 PLOT 259, 194:PRINT"G I NESTE T'; DER )LH 
339 PLOT 268, 158:PRINT"P RE S E N T E"::TAGOFF RU m 98 POKE &ACOP, 1 Ve 
333 * SCROLLING >RK © 199 * ENCRES POUR MONITEUR HONOCHROME SINON MODIFIER EN )RB 
349 FOR 1=1 TO 1598: NEXT )RZ m  CONSEQUENCE 
359 FOR 121 T0 59 CE M L19 INK 9,24: INK 1, D:BORDER 24 XF 
365 LOCATE !,! >RK m 128 GOSUB 599 HG 
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139 MODE 2:DEFINT A-Z:DIM H(69,69),H(69),N(69),V(69),Q( DFV 


69,69) 

149 T=69:P=1:A1=2:P2=69 

159 * MENU 

169 X=134:11=2:12=24:F=25:K2=4:W=ÿ 
178 CLS 

189 GOSUB 68 


199 LOCATE F,11+5:PRINT" CHARGEMENT 


289 LOCATE F,11+7:PRINT"{ ) MODELE NUMERIQUE DE TERRAIN 


219 LOCATE F,11+9:PRINT"2 ) MNT PERSONNEL 

229 LOCATE F,11+11:PRINT"3 ) CENTESIGRAPHE 

239 LOCATE F,11+13:PRINT"4 ) TURBOCHARGEUR 

249 LOCATE F,11+15:PRINT"S ) RETOUR À KERNEL 

258 LOCATE F,11+17:PRINT"6 ) TUTTI VA BENE 

269 LOCATE 27,11+28:INPUT" indiquez votre choix : 


278 IF A1<{ OR A126 THEN GOTO 164 

289 GOSUB 598 

298 ON A1 GOSUB 329, 499,559, 3279, 3399, 3249 
389 GOTO 899 

319 ' MENU 

929 X=177:11=1:12=24:22=4 

338 CLS 

349 GOSUB 688 

354 LOCATE F,11+5:PRINT"{ ) LE SIDOBRE 

369 LOCATE F,11+7:PRINT"2 ) LA GRESIGNE 
378 LOCATE F,[1+9:PRINT"3 ) LE FOSSE DU THORE 
389 LOCATE F,11+{1:PRINT"4 ) L'ETNA 


398 LOCATE F,11+13:PRINT"S ) LE PITON DE LA FOURNAISE 


499 LOCATE F,11+15:PRINT"6 ) L' AMAZONE À OBIDOS 
419 LOCATE F,11+17:PRINT"7 ) UN TYPHON SUR LE JAPON 
428 LOCATE F,11+19:PRINT"8 ) MENU PRINCIPAL 

438 LOCATE F,11+21: INPUT" Indiquez votre choix : 
1 

449 IF A1C1 OR A1>8 THEN GOTO 338 


459 ON Ai GOSUB 2889, 2999, 2929, 2945, 2969, 2989, 3999, 169 


469 GOSUB 598 

478 GOTO 898 

489 * MENU 

499 X=79:11=8:12=15:27=5 
598 GOSUB 688 

519 LOCATE F,11+5:LINE INPUT" 
525 GOSUB 598 

539 RETURN 

549 * CENTESIGRAPHE 

559 T$=STR$(Z) 

569 Z=2+1:K2=5 

578 RETURN 

589 ? SCROLLING 

598 FOR 1=1 TO 159B:NEXT 
688 FOR 1=1 TO 59 

61# LOCATE 1,1 

628 FOR J=1 TO 3 

638 NEXT J 

649 PRINT CHR$(2)+CHR$(11) 
659 NEXT 

669 RETURN 

679 * MISE EN INAGE DES MENUS 


NOM DU MNT : ",T$ 


>RZ 
RG 
)CX 
UC 
JC 
>MY 
)D2 


>LK 
>HQ 


Le 


>PG 
>MU 
)JN 


YC 
)JD 
»GZ 
)YH 
RE 
DUU 
>UA 
)JA 
)GY 
JF 
>QP 
)DY 
> AY 
DUC 
)YH 
NC 
JW 


)YC 
>VK 
JD 
>2F 
TC 
>UH 
)HJ 
UT 
)JA 
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688 X$=STRINGS (62, CHR$(X)) 

698 LOCATE 19,11:PRINT X$ 

789 LOCATE 18,12:PRINT X$ 

719 X$=STRINGS (2, CHR$(X)) 

728 FOR 1=11 TO 12 

738 LOCATE 19,I:PRINT X$ 

749 LOCATE 78, I:PRINT X$ 

759 NEXT ! 

769 LOCATE 35,11+2:PRINT"- MENU - 

778 LOCATE 37, 11+3:PRINT" 

788 RETURN 

799 CHARGEMENT MNT 

889 T$=LEFTS(TS,8):MA=9:M1=8 

819 IF T$=""THEN 169 

828 OPENIN T$ 

839 INPUT#9,L 

849 FOR 1=1 TO T 

859 FOR J=1 TO T 

869 INPUT#9,H(1,J) 

878 NEXT:NEXT 

889 CLOSEIN 

899 ? MAXIMUN ET MINIMUN 

989 HI1=H(1,1) 

919 FOR 1=5 TO T STEP 4 

928 FOR J=5 TO T STEP 4 

939 MA=MAXCH(1,J),H(1,9-4)):MI=MINCHCI,J-4),HC1,9)) 
949 BORDER 1+1\3 

959 IF MAOMAÏ THEN MA=MA 

969 IF HICMIL THEN MI1=MI 

979 NEXT 

989 NEXT 

998 D2=MA1-MI1 

1899 ‘ ECHELLE 

1919 G=(D2\259)+K2 

1929 ‘ MENU 

1939 X=233:11=3:12=24 

1849 CLS 

1959 GOSUB 689 

1969 LOCATE F,11+5:PRINT"{ ) MODIFIER L'ORIENTATION 
1978 LOCATE F,11+7:PRINT"2 }) CHOISIR L'ANGLE DE VUE 
1889 LOCATE F,[1+9:PRINT"3 ) HICROMEGA 

1999 LOCATE F,11+11:PRINT"4 ) GRAPHISME 3 D 
1188 LOCATE F,11+13:PRINT"5 ) RETOUR MENU PRINCIPAL 
1119 LOCATE F,1{+17:INPUT" Votre choix : ",AI 
1128 GOSUB 598 

1139 IF A1C1 OR A16 THEN 1939 

1149 ON AL GOSUB 2339,2229,2129,1178,149 
1159 GOTO 1939 

1169 * GRAPHISME 

1179 MODE 2:ERASE M,N,V 

1189 DIM H(69),N(69),V(69) 

1199 LOCATE 65,1:PRINT C$; 


UC 


1289 LOCATE 65,2:PRINT"MAX : "MAI; :LOCATE 65,3:PRINT"M DQR 


IN : "MI; 

1218 IF W=1 THEN GOSUB 3198 

1229 FA=19 

1238 ORIGIN 8,9 

1249 Y1=(288-(16#P))-(CMA\FA)+G):X1=1:C=5 
1259 FOR 1:1 TOT 


>UK 
)JA 
>XH 
)HX 
)FB 





CL] 
1269 X1=X1+4:Y1=Y1-2 >PD = 1858 IF J=1 THEN E=9 ELSE E=1 >VP 
1278 ORIGIN X1,Y1 vkP "1669 F2- >BG 
1288 H2=9:H1=9 >PC m 1879 RETURN DFK 
1298 FOR J=1 TO T )FG © 1889 * SOUS-PROGRAMME GRAPHIQUE ik 
1308 H2=HI Ka = 1898 IF J=1 THEN E:1 ELSE E:9 JU 
1318 HL=HCI,) DPD # 1985 F2:1 >BC 
1329 H1=H1/G DAC 1918 FOR J=T TO 1 STEP-1 >RQ 
1338 H3=HL-H2 >GH m 1929 IF 1=T AND J=T THEN RETURN >Yu 
1349 1F J=1 THEN HH=H ELSE HH=H3 >2D © 1938 ZAH=H(1,9) AK 
1358 IF VS=9 THEN GOSUB 1859 ELSE GOSUB 1898 DJZ m 1949 ZA2=H((1+1),J) HF 
1369 DRAUR C,HH4P,E DNF M 1059 ZA:ZA2-ZA1 >HC 
1378 MOVER 9, -2 DH = 1969 ZA=ZA/G >JA 
1388 VI=N(J) EG "1979 DRAVR 4,-24ZA,E NX 
1399 V2:YPOS DHG m 1989 MOVER-4, 2-74 HU 
1499 V3=XPOS )LJ # 1998 NOUER 9, -2 XF 
1418 IF 1=1 THEN 1599 NO = 2998 ZA=ZA-2 )ED 
1429 Z1=H(1,J)-H(1-1,9) )QF ® 2819 V:U() DVE 
1439 Z2=HC1,J)-H(1,J-1) DH = 2828 FOR B1=1 TO V STEP 2 RE 
1449 Z1=ABS(Z1) :Z2=ABS(22) NVG M 2838 CX=-247A >LC 
1458 13=MAX(21,22) DNE w 2849 DRAUR 4,CX,F2 >HG 
1468 V=(Z3\6)+k2 )LH # 2859 NOVER-4, 2-74 DH] 
1478 IF J=2 OR 1=69 THEN V-Vx19 DXB w 2068 ZA=ZA-2 DEK 
1488 V(I)=V DWE m 2978 NEXT Bi AJ 
1498 IF 1=1 THEN V:3 NB m 2988 MOVE M(J-1),N(J-1) >QC 
1599 FOR B=1 TO V-1 STEP 2 DRJ m 2899 NEXT J >VH 
1519 S=P+1 DLF © 2188 RETURN DEG 
1528 MOVER-C, -HH-S:DRAUR C,HH+P, F2 )DR m 2119 * HENU >XG 
1536 H2:H kF M 2129 X:232:11:3: 12:16 >PQ 
1548 NEXT B DU = 2136 CLS >2F 
1558 MOVE V3, V2+2 LT 2149 GOSUB 688 >qA 
1568 M(J)=XPOS JAH m 2159 LOCATE F, 1145:PRINT"{ ) MEGARELIEF JHH 
1578 N(J)=YPOS )BA M 2168 LOCATE F, 1147:PRINT"2 ) MICRORELIEF KT 
1589 NEXT J DWA m 2178 LOCATE F, 11311: INPUT" Votre choix : "Ai  DYM 
1598 P2=P2-1 DAF 2189 IF A1C1 OR A12 THEN GOTO 212 >ZL 
1698 GOSUB 1918 >XA = 2198 ON AL GOSUB 3869, 3139 : TP 
1648 NEXT | DVD # 2299 GOTO 1825 LE 
1629 ? BLOC-DIAGRAMME YB m 2218 ' MENU )HH 
1638 AX=(H(69,69)4T)\G DQJ M 2228 K=228:11=3:12=19 >PA 
1648 BX=(H(69, 1)4T)\G >PD n 2238 CLS »26 
1658 DRAUR #,-AX,E DHA m 2249 GOSUB 689 )QB 
1669 DRAUR-349, - (694P),E DRE 2259 LOCATE F,1145:PRINT"{ ) VUE OBLIQUE )PE 
1679 DRAUR 9,BX,E DLU m 2268 LOCATE F,11+7:PRINT"2 ) VUE CAVALIERE >P 
168 MOVER 9, -EX DLM M 2279 LOCATE F,1{+9:PRINT"3 ) VUE PLONGEANTE NF 
1698 DRAVR-272, (T42) DNG m 2288 LOCATE F, 11+13: INPUT" votre choix : "At  DYB 
1798 1X=CH(1,L)4T)\G NB 2298 IF A1<1 OR A1)3 THEN GOTO 2229 DA 
1718 DRAUR 9, IX >CC = 2399 ON A1 GOSUB 3188, 3299, 3229 >4D 
1728 FOR 1:19 T0 52 LG "2318 GOTO 1929 LG 
1739 * SONNERIE DE FIN DYD ms 2329 * MENU D 
1748 SOUND 1,1,8,6 HT M 2388 1-236:11*4: 12:22 >PU 
1756 NEXT | DVI = 2349 CLS )U 
1768 * SAUVEGARDE IMAGE DYG 2358 GOSUB 688 >QD 
1778 LOCATE 8,24:PRINT UPPERS (TS); DCF mn 2369 LOCATE F,11#5:PRINT"1 ) ROTATION DE 98 DEGRES Un 
1789 1F L)9 THEN GOSUB 3838 JUN m 2378 LOCATE F,11+7:PRINT"2 ) ROTATION DE 185 DEGRES  DXQ 
1798 F:F+1 DKC à 2389 LOCATE F, 11#9:PRINT"3 ) ROTATION DE 278 DEGRES XV 
1899 LOCATE 2, 1:LINE INPUT" IMAGE : ",1$ >GK m 2398 LOCATE F,11+11:PRINT"4 ) SYMETRIE HORIZONTALE  DYK 
1818 SAVE 1$+".SCR",B, &CO9B, 44998 )ZH © 2499 LOCATE F,11+13:PRINT"5 ) SYMETRIE POLAIRE JUA 
1828 MA=S:MI=9:C$="" NX m 2418 LOCATE F,11#16:INPUT" votre choix : ",Ai >XD 
1838 GOTO 1819 DHB 2428 IF A1C1 OR A15 THEN GOTO 2338 >ZP 
LI 


1849 ? SOUS-PROGRAMME ENCRES )YF = 2438 ON Al GOSUB 2669,2599, 2888, 2528,2738 DFE 
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244g ' ROTATIONS ET SYMETRIES 
2458 FOR [=1 TOT 

2468 FOR J=1 TOT 

2478 H(1,J)=Q(1,9) 

2489 NEXT J 

2498 BORDER 1+1\3 

2588 NEXT ! 

2518 GOTO 1938 

252 FOR 1=1 TOT 

2538 FOR J=1 TO T 

2548 Q(J,1)=HC1,7) 

255$ NEXT J 

2569 BORDER 1\3 

2578 NEXT | 

2588 RETURN 

2598 FOR 1=1 TO T 

2688 FOR J=1 TO T 

2619 Q(1,J)=H((78-1), (78-J)) 
2629 NEXT J 

2638 BORDER [\3 

2649 NEXT | 

2658 RETURN 

2669 FOR 1=1 TO T 

2678 FOR J=1 TOT 

2689 Q(J,1)=HC1,(78-7)) 
2698 NEXT J 

2789 BORDER I\3 

2718 NEXT | 

2728 RETURN 

2739 FOR J=1 TO T 

2749 FOR 1=1 TOT 

2758 Q(1,J)=H((78-J), (78-13) 
2768 NEXT | 

27178 BORDER J\3 

2788 NEXT J 

2798 RETURN 

2898 FOR 1=1 TO T 

2818 FOR J=1 TOT 

2829 Q(J,1)=H((78-1),9) 
2838 NEXT J 

2849 BORDER 1\3 

2859 NEXT 1 

2869 RETURN 

2879 ' TITRE DES MNT 
2889 T$="SIDOBRE" 

2898 RETURN 

2988 T$="GRESIGNE" 
2918 RETURN 

2928 T$="THORE" 


»YC 
FE 
>FG 
>hG 
WA 
DLF 
JVC 
>LK 
)FC 
)FE 
ME 
NV] 
)FA 
JVK 
)FJ 
DFK 
>FC 
DW 
VC 
)EJ 
VA 


DFK 
> 


)EG 
DVF 


)FG 
>FG 
)VA 
WA 


æ 
= 
= 
= 
# 
= 
C 
æ 
m 
= 
= 
a 
F 
= 
a 
a 
8 
= 
= 
u 
3 
Ê 
Ê 
5 
8 
& 
m 
= 
= 
= 
= 
= 

)FG = 
= 
= 
= 
= 
= 
= 
u 
x 
= 
= 
= 
Ê 
= 
æ 
= 
& 
2 
= 
= 
& 
& 
= 
= 
= 
Œ 
CL] 
æ 
& 
Œ 
= 
= 
= 
= 
= 





2938 RETURN 

2948 T$="L'ETNA" 

2958 RETURN 

2969 T$="PITON" 

2978 RETURN 

2988 T$="AMAZONE" 
2998 RETURN 

3988 T$="TYPHON" 

3818 RETURN 

3928 IMPRESSION ECHELLE 
3838 LOCATE 68,24:PRINT L" KM."; 
3949 RETURN 

3858 ‘ HEGARELIEF 
3969 IF D2)299 THEN G1=3 ELSE G1:=5 
3878 G=G-G1 

3989 IF G<1 THEN G:1 
3898 V=1 

3199 C$="MEGARELIEF" 
3118 RETURN 

3128 ? MICRORELIEF 
3138 G=G+7 

3149 W=1 

3159 C$="MICRORELIEF" 
3169 RETURN 

3179 * PERSPECTIVES 
3189 P=1:K2:=4 

3198 RETURN 

3289 P=2:K2:=5 

3219 RETURN 

3229 P=3:K2:=5 

3238 RETURN 

324ÿ END 


3258 * TURBOCHARGEUR - LECTEUR DE DISQUETTE UNIQUEMENT 


SINON SUPPRIMER LA 

3269 ' LIGNE 329 

3279 WINDOW#1,15,79,24,24 

3288 VINDOW#2,35,58, 23,23 

329ÿ CAT 

3398 LINE INPUTH2, "MNT : ",T$ 

3319 IF T$=""THEN 169 

3328 T6=T$+",SCR" 

3339 MODE 2 

3348 LOAD T$,&C899 

3358 PRINT#1,"MENU PRINCIPAL ( ESPACE }) 
TURBOC. ( AUTRE TOUCHE ) 

3369 WHILE INKEY$="":WEND 

3379 IF INKEY(47)=8 THEN 168 ELSE 3279 

3388 ? RETOUR KERNEL 

3399 CLS :RUN"KERNEL" 


FH 
HI 
DFK 
)ER 
GB 
)MJ 
)GD 
>LH 
)EH 
>XH 
)ZA 
)FA 
JYA 
)ZF 
DUB 
>MK 
DXC 
)PJ 
)EJ 
)XJ 
KA 
WJ 
)QH 
>FD 
>YD 
JG 
)FG 
JB 
DEK 
)JE 
>FB 
)YH 
)YC 


)YD 
TN 
TN 
)2D 
XP 
NZ 
)LR 
>PF 
>LP 
DC 


>UH 
)DE 
»YG 
)QN 








V 


La place réservée aux petites annonces est limi- 
tée. En conséquence, celles-ci passent dans leur 
ordre d'arrivée. Par contre, les petites annonces 
farfelues sont systématiquement rejetées. De même, 
comme il est peu probable qu'il existe des “géné- 
reux donateurs” de matériels ou de logiciels, les 
petites annonces faisant appel à ces philantropes 
ne seront insérées que si la place le permet 
Seront refusées toutes les annonces visant à ven- 
dre ou échanger des listes ou copies de logiciels 
non garantis “d'origine”, ainsi que toute annonce 
incitant au piratage. 

En conséquence, réfléchissez bien avant d'envoyer 
vos textes. Les petites annonces doivent impérati- 
vement nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un carac- 
tère par case. : 

Enfin, toute annonce non accompagnée de timbres 
ne sera pas insérée. 
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+ Vds CPC 464 mono bon état + 
manuel + logiciel jeux et utilitaires, 
traitement de textes, budget + 
boîte rangement . Prix : 750F. Tél. 
aprés 19 h. (1) 30.50.03.30. 











e Vds disquettes Shinoby et les 
justiciers pour Amstrad 6128 : 75F 
chaque. Tél. h. r. au 96.92.24,.58. 





e Club jeunes roumains cherche 
pour CPC 6128, souris, joystick 


disq. 3”, jeux, revues. D. MANEA 
B.P. 59-30, BUCAREST -70164 
ROUMANIE. 





e Vds manuel 6128 : 100F., clavier 
CPC 464 coul. + 2 joysticKs + K7 - 
jeux divers . Prix : 800F. Mme 
Gomez, tél.43.66.21.07. 


e Cherche CPC n° 1 à 37 + vends 
Amstrad 100% + Amstar : liste 
gratuite. Vend Scaner Dar : 600F. 
port compris. Tél.29.06.04.34,. 


° Cherche listing ‘ annuaire lere 
partie CPC HS n°20. Faire offre. 
Tél. h. r. au 84.71.01.19. 








e Vds jeux, utilitaires, éducatifs 
pour 6128. Petit prix. Liste sur 
demande. Ecrire à : Mæzars Ph., 
route de Glianes 46130 BRE- 
TENOUX. 





+ Vends nombreux jeux sur D7 + 
utilitaires : Protext, Ocp, Page 
Publisher, 3D kit, pack NRJ2, etc... 
Tél. aprés 18h. au 39.83.4255, 


+ Echange GAME BOY + 7 jeux 
contre CPC 6128 + moniteur 
couleur CCTZ . Stéphane Schouft 
305, quartier Haute - Folie 14200 
Héroubville. 





e Vends traitement de textes 
pour CPC 6128 : 300F. Tél. heures 
repas au 35.84.49.82. 





e Vends AMSTRAD 6128+ avec 35 
jeux, sous garantie, avec télé 
couleur et manette. Prix : 3000F. 
Tél. 64.20.3256. 








LES PETITES ANNONCES ET LES MESSAGES 


Attention, vos PA seront mises sur le serveur avant la parution du journal 





PETITES ANNONCES 





e Vends scanner Dart comme 
neuf : 600. port compris + divers 
revues : 14F. port compris. Liste 
gratuite. Tél. 29.06.04.34,. 





« Achéte tuner TV (+ de 400F. 
s'abstenir]. ROUSSEAU Nicolas 
rue de St Quentin 08220 SEVIGNY- 
WALEPPE. 


e Recherche musicien sur Ams- 
trad. Ludovic DELABRE, le pré 
latour les Alérions, 54700 Pont-à- 
Mousson. 





e Vds 6128 + DDI1 + 51/4 + 
imprimante + disc silicon eutopia 
+ souris. Nombreux logiciels + 
table graphique, nombreux 
livres. Prix : 5000F. Tél.64.48.12.98. 





+ Vds CPC 6128 couleur modéle 
91 + de nombreux jeux originaux 
+ revues + joystick. Prix : 3000F. 
Tél. (16.1) 34.68.10.71. 


















Mettre ce coupon + 4 timbres à 2,50 F dans une enveloppe. © 
L Adresser le tout à : SORACOM - La Haie de Pan - 35170 BRUZ a | 


Gagnez du temps ! Sur minitel 36.15. Tapez MHZ 
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GUIDE FAMILY 
HISTORY SYSTEM 









Philippe BOUTIN 


Valable pour CPC 6128 





Ayant entrepris des recherches généalogiques et ne souhaitant pas changer mon matériel 
informatique, je me suis mis à la recherche d'un logiciel adapté à mon CPC 6128. 
N'ayant rien trouvé sur le marché, j'ai donc décidé d'en écrire un, adapté à mes besoins, 
permettant de gérer aussi bien un fichier généalogique qu'un fichier d'actes en lui 
donnant un look professionnel et une conception permettant une utilisation agréable. 


‘est ainsi qu'est né FAMILY 
( HISTORY SYSTEM. Ce logiciel 
répond à deux objectifs : 
- La gestion des données géné- 
alogiques recueillies 


- L'exploitation statistique des don- 
nées 


De par la limite mémoire, le principe 
retenuaété celuid'une saisie d'actes 
sous forme de <63 FICHES> qui sont 
analysées de manière différente selon 
les fichiers. Il fonctionne sur Amstrad 
CPC 6128 avec les 42 kilo-octets de 
basic disponibles,lacompatibilité n'a 
pas été testé sur d'autres machines 
de type CPC. Il est nécessaire de 
disposer d'une Imprimante compar- 
tible 80 colonnes minimum, pour 
optimiser toutes les possibilités du 
logiciel. 


GENERALITES 
SUR LE 
PROGRAMME 


Le programme est écrit en Basic sans 
finesse particulière, et peut être 
adapté facilement. llfonctionne avec 
un programme principal <FHS.prg> et 
14s-programmes modulaires chargés 
en mémoire en fonction des besoins 
par <CHAIN MERGE>. Ils ont été 
numérotés de P11 à P24. Par la suite, 
pour simplifier la compréhension de 
ce guide, nous les appelerons 
<modules>. Le principal avantage de 


cette structure est de faciliter toutes 
modifications ou adjonctions ulté- 
rleures. Il suffit de modifier le sous- 
programme, éventuellement d'en 
créer des supplémentaires, sans ou- 
blier de modifier la ligne de Menu 
concerné dans le programme prin- 
cipal. 

Un tri alphabétique Shell-Metzer est 
intégré au module de sauvegarde. Il 
vous permettra de maintenir classés 
tous vos fichiers d'actes. Le tri est 
Impossible sur un fichier généalogique 
où Il faut respecter une classification 
précise. 


Toutes les éditions ont été paramétrés 
avec des codes Epson, dont vous 
trouverezle détail dans <FHS.prg>. Un 
certains nombres de contrôles sont 
effectués avant toute sortie Impri- 
mante. || s'agit de : 

- vérification connexion imprimante 

- demande de confirmation d'ali- 
gnement papier 

- titre en haut - bas de page avec No 
de page 

- date de l'édition et nom du fichier 

- contrôle longueur de page 


Toutesles éditions sont prévues <feuille 
à feuille>, votre étude ayant besoin 
d'être reliée pour pouvoir être 
communiquée à des tiers. 


Compte tenu de la taille du pro- 
gramme à saisir (44 kilo-octets), il est 
recommandé d'en faire un COPIE 
par <Disckit3ä>, <Discology>ouautres, 
et de travailler sur cette copie. 
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RANGEZ SOIGNEUSEMENT VOTRE 
ORIGINAL. De par monexpérience.je 
vous recommande l'utilisation de 
disquettes Amsoft qui offrent toutes 
les garanties d'utilisation etne risquent 
pas de vous lâcher après quelques 
mois. 


LA DISQUETTE 


Sur la disquette, pour travailler, vous 
devez avoir les programmes du 
tableau 1. 

Vos fichiers généalogiques et actes 
au format Ascil, n'apparaîtront pas 
encatalogue.llssont stockés en <User 
1>.Pour ceux qui ne connaissent pas, 
vous pouvez,enbasic, utillserles <User 
1 à 15>. 


* Accès User 1 : < | user,1> + <Retum> 
puis <Cat> 
* Retour User 0 : < | user,0> + <Retum> 
puis <Cat> 


Vous trouverez en fin de ce guide, les 
principales variables utilisées, leur 
signification et toutes les remarques 
de programmation ou structures 
particulières. 


CHARGEMENT 
DU PROGRAMME 


introduire la disquette de travail dans 
le lecteur. 





2ko 


Fhs prg 4ko 


Tapez <Run”'F> + <Return> 

Après affichage d'un écran de 
présentation, vous accédez au 
programme. 


Le programme vous demande un 
DATE. Il s'agit de la date du jour que 
vous devrez entrer sous la forme 
<JJ.MM.AAAA>, les points pouvant 
être remplacés par des tirets ou des 
blancs. Cette saisie est importante, 
car le programme utilise les données 
de cette date dans certains calculs 
intégrés auxstatistiquesetrecherches. 
Cette date sera imprimée sur tous vos 
états extérieurs. 


Nous allons étudier en détail, toutes 
les options du Menu principal, ci- 
dessous. Pour vous familiariser avec le 
logiciel, vous trouverez en face de 


chaque option, le module 
correspondant. 

A - Ajouter Données P11 
M - Modifier Fiche P12 
V - Visualiser Données P13 
R - Rechercher Données P14 
| - Impression Générale P15 
C - Charger Fichier P16 
E - Ephéméride P17 
$ - Sauvegarder P18 
U - Unions connues P19 
F - Famille / Branche P20 
D - Nais-Décès / Départ P21 
P - Par âge / Tx Mortalité P22 
G - Gommer Fiche P23 
L- Listing Arbre IMP P24 


Q - Quitter Family v.1 


Le choix d'une option s'effectue en 
tapant la première lettre de celle-ci. 
Néanmoins, l'accès aux options vous 
sera refusé si aucun fichier n'est 
chargé enmémoire. (sauf Ajouter bien 
sûr !). Cecise concrétise par un retour 
systématique au Menu principal. 


AJOUTER 


Tous les ancêtres pour lesquels vous 
avez retrouvés des informations, 
seront enregistrés sous forme de 
<Fiche> comportant 20 rubriques. Les 
dates sont contrôlées, et la saisie des 
codes départements. 

Il est recommandé de bien vérifier la 


PI7.  2ko 
P18.  2ko 
PI, 2ko 





cohérence des données avant leur 
saisie. 


Après chaque ligne saisie, faites 
<Return>, même si vous n'avez pas 
entré d'informations. Sur un fichier 
généalogique, si vous ne connaissez 
pas le nom et prénom de l'ancêtre 
concerné - il est nécessaire que le 
programme reconnaisse 63 fiches - 
entrez <?> pour remplacer la donnée 
inconnue. 


Les dates se rentrent au format 
<JJ.MM.AAAA> :importantcartoutes 
les statistiques basées sur les années 
de naissances, décès, mariage etc. 
seraient faussées. Si vous ne disposez 
que de l'année, entrez <....AAAA>. 
Cette alternative a été prévue dans 
le programme. 


Dans la mesure du possible, essayez 
de toujours saisir les noms de localité 
de la même manière, évitez les noms 
et prénoms composés du type 
<Dupont Jean-Pierre> saisissez plutôt 
<DupontJ.Pierre>,cecisurtout destiné 
à ne pas perturber les éditions de 
tableaux pré-définis. 


Vous remarquerez que les Noms sont 
saisis avant le Prénom. Ceci est 
important, une saisie inverse pertu- 


berait tout votre fichier. Si cela vous 
arrive, utilisez l'option <Modif> pour 
corriger. Sur les fichiers Actes les 
doublons éventuels en saisie seront 
signalés par un message bas d'écran. 


* Les départements autorisés vont de 
1 à 95. Si vous avez besoin d'autres 
départements, faitesies modifications 
voulues dans le module concerné en 
changeant la liste des Data et leur 
nombre. (Module P21 / data lignes 
5200 à 5240 / ligne 5020 variable <d> 
= nbr de départements). 


* Le nombre d'enfants connus 
concernent tousles mariages connus. 
La place mémoire ne permet pas de 
développer plus précisement ce 
point. Peut-être dans une prochaine 
version du logiciel. 


* Pour quitter cette option et revenir 
au menu, lors de votre accès à une 
nouvelle fiche, le curseur étant 
positionné sur la première ligne, faites 
<Return> sans saisir de données. 


IMPORTANT 


No de lignes obligatoires dans 
FHS.prg : 

1000 : retour menu 

2000 : choix Ecr/Imp 

3000 : réponse question 
4000 : message 

5000 : branchement modules 


Les modules P11 à P25 doivent toujours 
commencer par une ligne 5000 et ne 


Nom & Prénom 
Père 

Mère 

ole 

Localité 
Département 
+le 

Localité 
Département 
xle 

Localité 
Département 
N / P Conjoint 1 
Xle 

xx le 

Localité 
Département 
N / P Conjoint 2 
Profession 

Enf 
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sans commentaires 
n/p père 
n/p mère 
date naissance 


date de décès 


date mariage 


sans commentaires 
date divorce 
date remariage 


sans commentaires 
métier connu 
nb enf connus 


Dupont J.Pierre 
Dupont Albert 
Girard Marie 
10.10.1948 


15.06.1968 
Tours 

37 

Thuillier Josette 
14.03.1979 
27.05.1980 
Blois 

41 

Rousseau Lucette 
instituteur 

5 





doivent pas être protégés en 
sauvegarde : vous ne pourriez plus les 
charger. 

Caractères de contrôle imprimante : 
Fhs.prg lignes 270 à 360 

module de tri shell-metzer : P18. lignes 
5190 à 5360 


MODIFIER 


Le programme permetlamodification 
des20itemsd'unefiche.Larecherche 
s'effectue sur le numéro de fiche . 
Vous devez donc le connaître avant 
de lancer cette option : utiliser 
<Recherche parnom>ou<Visualiser>. 
Ce numéro entré, le programme 
affiche la fiche dans son intégralité et 
vous demande de confirmer l'entrée 
en modification. 

- <refus> : le programme demande 
un nouveau numéro de fiche 

- <confirmation> : le programme 
demande le numéro d'item à modifier 


Les lignes sont numérotées afin de 
faciliter l'opération. Dès saisie du 
numéro d'item. le curseur se place sur 
la ligne concernée, efface les 
donnéesexistanteset attendl'entrée 
clavier. Vous pouvez faire <Return> 
sans saisie, la ligne concernée restera 
vide. 


Pour sortie de l'option <item> faites 
<Return> sur question 

Pour sortie de l'option <No Fiche> - 
idem - 

Le programme vous repositionne sur 
le menu principal. 


REMARQUES 


L'ajout ou la modification des 
données du fichier active un FLAG de 
contrôle qui vous assure une 
sauvegarde automatique lorsque 
vous quittez le logiciel via l'option < 
Quitter Family v.1> 

- fmod = 0 position initiale - pas de 
changements dans le fichier 

- fmod = 1 ajout ou modif effectuées 
sans sauvegarde 


(la sauvegarde réenclenche le flag 
<fmod> à 0) 


VISUALISER 


Cette option vous permet d'accéder 
à un sous-menu de 5 options : 


<L> Liste simplifiée 
<S> Sélection Fiche 
<F> Fichier 

<T> Tableau détaillé 
<Q> Quitter 


<Liste> : permet de dérouler à l'écran 
toutesles fiches contenues dans votre 
fichier en affichant le No et Nom & 
Prénom. Cette option est utile pour 
retrouver le No d'une fiche à modifier 
dont on ne connaît que le Nom. 


<Sélection> : permet de visualiser une 
fiche individuelle complète dont on a 
donné le numéro. 


<Fichier> : permet de naviguer à 
l'intérieur du fichier en visualisant 
chaque fiche individuelle, grâce à un 
s/menu d'options bas-écran. Le 
programme se positionne de lui- 
même sur la première fiche. 


<D>ébut : première fiche <F>in : 
dernière fiche 

<A>vant : fiche précédente <S>uite : 
fiche suivante 

<@>uitter : retour menu 


Le programme vérifie le numéro de 
fiche, contrôle les limites hautes et 
basses du fichier et autorise ou non 
votre demande. 


<Tableau> : de par sa largeur, n'est 
pas disponible ici : utiliser IMPRIMER 


RECHERCHER 


Avec cette option vous accédez à 
un menu de choix de 8 options de 
recherches sur les items suivants : 

- Noms complet ou partie 

- Localité, ville où village 

- Département 

- Année de naissance 

- Année de décès 

- Année de mariage 

- Tri par siècle 

-— Quitter 


Le programme vous ressortira toutes 
les fiches où le paramètre de 
recherche a été retrouvé. Vous 
pourrez disposer de ces recherches 
sur écran où sur Imprimante. 
*Lesrecherchessur datesne peuvent 
être supérieures à l'année en cours. 


*Letriparsiècle vous donnele nombre 
de fiches concernés du 17ème au 
20ème Siècle recherches effectuées 
sur l'année de naissance. Vous 
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pourrez développer ce point en 
rajoutant 16” et 15° éventuellement 
(Module P14 lignes 5490 ajouter c5, 
cé, ajouter traitement entre 5510 et 
5560 et affichage entre lignes 5590 et 
5600. 


IMPRIMER 


Cette option vous permet d'accéder 
à un sous-menu de 6 options : 


<l> Index <S> Sélection Fiche <T> 
Tableau détaillé 

<L> Liste simplifiée <F> Fichier totalité 
<@Q> Quitter 


<index> : permet l'édition d'une liste 
numérotée de toutes les fiches avec 
le Nom & Prénom 


<Sélection> : permet d'imprimer une 
fiche individuelle choisie 


<Liste> : permet l'édition de toutesles 
fiches où apparaissent seulement les 
No, Noms & Prénoms, Dates de Naiss, 
Mariage, Décès. 


<Fichier> : permet d'imprimer la 
totalité des fiches individuelles de 
votre fichier. Seules les données 
connues et renseignées seront impri- 
mées afin de ne pas gaspiller du 
papier. Vous avez la possibilité de 
choisir Une option <Edition Partielle> 
qui vous permet d'éditer une liste < 
d'un numéro à un autre>, utile en cas 
de mise à jour. 


<Tableau> : permet l'édition d'un ta- 
bleau détaillé séparé par générations 
pourles fichiers généalogiques, global 
pour les fichiers d'actes. Le program- 
me reconnaît le type de fichier. 


ll vous est possible d'ajouter d'autres 
éditions en modifiant le menu, et en 
complétant le module P15. 


CHARGEMENT 


Avant chargement d'un nouveau 
fichier, le programme vérifie l'état de 
la mémoire, le cas échéant, il purge 
le fichier résidant avant de chargerle 
nouvequ, où vous renvoie au menu 
après sauvegarde si nécessaire. 


Le Directory des fichiers disponibles 
s'affiche à l'écran pour vous per- 
mettre de choisir. Vous devezentrerle 
NOM du fichier avec SUFFIXE. Dès la 


fin du chargement toutes les informar- 
tions contenues dans les fenêtres 
écran, seront réactualisées. 


ll est prévu dans le programme un 
contrôle si le nom entré n'existe pas : 
vous aurez la primeur d'un message 
et retour à saisie du nom, sans le 
fatidique message <(nom). not found 
> qui a l'avantage de planter votre 
programme. 


EPHEMERIDES 
Option Ecran : Oui 


Le programme vous imprime deux 
listes par année de naissance et de 
décès des ancêtres existant dans le 
fichier concemé. Vous devrezinitialiser 
l'année débutetl'année fin. L'année 
fin ne peut être supérieure à l'année 
en cours. Sur cette liste apparaît 
l'année, le mois s’il est connu, et le 
nom et prénom. 


SAUVEGARDER 


Le programme vous demande de 
préciser sur quel type de fichier vous 
travaillez. (Généalogie ou (Aïctes. 
Nécessaire dans le cas d'une 
première sauvegarde, le nom du 
fichier n'existant pas. Le programme 
affectera lui-même un suffixe <.gen> 
ou <.ach>. 


Si vous travaillez sur un fichier 
généalogique, la sauvegarde sera 
lancéeimmédiatementaprèsl'entrée 
du nom de fichier sans suffixe. Si vous 
travaillez sur un fichier d'actes, le pro- 
gramme vous demandera si vous 
souhaitez effectuer un tri alphabé- 
tique avant sauvegarde. 


Toutes les dates Inexistantes seront 
Initialisées à leur longueur par 10 points 
afin de faciliter les recherches et 
statistiques ultérieures. 


UNIONS CONNUES 
Option Ecran : Oui 


Permet l'édition d'un tableau par No 
(généalogie) ou alpha (actes), de 
tous les mariages connus dans le 
fichler traité : Nom de l'intéressé, nom 
&prénomdel'épouxouépouse, date 
du mariage. Une fiche sans date de 
mariage, même si le n/p de l'é- 
poux(se) est connu, ne sera pas 
traitée. 


FAMILLE / 


BRANCHE 
Option Ecran : Oui 


Cette option ne fonctionne qu'avec 
un fichier généalogique et vous 
imprime uneliste par branche de tous 
vos ancêtres. La branche patemelle 
commence au numéro 2, la branche 
maternelle au numéro 3. 


DEPARTEMENTS 


NAIS & DECES 
Option Ecran : Oui 


imprime un état ou sont regroupés 
tousles ancêtresnés ou décédés dans 
un même département. Cette 
analyse vous permettra d'étayer une 
étude démographique de votre 
famille. 


EVENEMENT AGE / 
TX MORTALITE 


Edite un tableau desynthèse des äges 
moyens de tousles ancêtres dufichier, 
à chaque événement important de 
leur vie : marlage divorce ,remariage, 
décès et en complément effectue 
une analyse de la mortalité par 
tranche d'âge avec récapitulatif final 
et pourcentages par tranche. 


LISTING 
ARBRE IMP 


Toutes vos données sont enfin saisies, 
et vous allez pouvoir disposer sur 
papier (Listing continu obligatoire- 
ment) de la liste de vos ancêtres im- 
primés avec Nom & Prénom, années 
de naissance et de décès, sous forme 
d'arbre latéral et vertical. 


La génération No 1 sera à l'extrémité 
gauche de votre listing, et l'avanr- 
cement vers la droite vous emmène 
vers les générations suivantes. Cette 
édition est en caractères condensés, 
ne disposant que d’une imprimante 
80 colonnes. 


Vous pourezmodifier ce paramËtre sl 
vous disposez d'une Imprimante 
grand-charlot. Cette option est 
disponible dès qu'une fiche est créée 
dans un fichier généalogique. 
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GOMMER 
UNE FICHE 


Cette option permet de supprimer 
totalement une fiche de vos fichiers 
d'actes exclusivement. le contrôle est 
effectué par le programme (fmod 
activé). 


QUITTER 
FAMILY V.1 


Le programme est véroullé contre 
tout BREAKintempestif. L'utilisation de 
cette option est Impérative lorsque 
l'on souhaite en terminer avec le pro- 
gramme, elle seule permet la réac- 
tualisation automatique des fichlers 
en fonctions des nouvelles données 
introduites en cours d'utilisation. 


MODIFICATIONS 
POSSIBLES 
DU PROGRAMME 


Vous pourrez effectuer Un certains 
nombres d'adaptations en fonction 
de vos besoins personnels, mais 
n'augmentez pasle nombre de fiches 
par fichier vous auriez droit à un 
superbe <Memory full>. 


La capacité a été testée avec un 
fichier de 63 fiches de 20 rubriques 
remplies chacune avec 12 points (240 
octets de données par fiche). Nous 
obtenons un fichier Ascil de 18 ko. 


Après chargement <Fhs.prg> + fichier 
test + module le plus Important (P15: 
7ko) nous disposons de 11% de place 
mémoire sur les 42 Koinitiaux, sachant 
que 4 sont réservés par le Memory 
Himem-1 du début. 





NC inner nbr maxi de fiches (ici 63) 
Mlisannrantandiantinus nbr d'options menu principal 
Nranraaninnnaenans nbr de rubriques par fiche (O à 19) 
nana en nbr de fiches en Ram 
DOM 'rénreinnnet nbr de sous programmes ou modules (15) 


I lbellés des rubriques 
données saisies dans chaque rubrique 
NE TITRE nom des sous-programmes (P11 à P25) 
D OT TE mois en clair 

options des Menus Visualiser et Imprimer 
énoniion nn hip date du jour 

teintes tableau années 

nn en TENTE donnée recherchée 
D ES nom du fichier 

coordonnées d'affichage 
nbr de lignes maxi par page imp où écran 
TE compteur No de page 

SA D NT flag de modification sur les données 
flag de reconnaissance tableau détaillé 
EU ET INIS contrôle saisie nom de fichier 
NU LT valeur de l'année en cours 
tableau des années de naissance 
RP DO CET OO OT NO compteur de ligne en IMP 
nt cumul fiches par siècle 
TN divers compteur 
his No fiche début 


nus / nu 


















format des dates : JJ.MM.AAAA 


window #1,15,60,24,24 affichage des messages bas écran 





window #2,22,5922,,.,. fenêtre du titre haut écran 
window #3,2,19,22,,,,, affichage date 
window #4,62,68,22 affichage % dispo mémoire 
window #5,2,12,2424 .…...ne sert qu'à placer le libellé «Message» 
window #6,71,79,22 affiche nbr fiche en mémoire 


window #7,63,79,24,24.. affiche Nom du fichier résidant mémoire 


date de naissance 
AR EI I D PT TT date de décès 
TR RE A Re A ae NN date de divorce 


animent date de mariage 
date de remarage 





Pour faciliter les recherches, La Corse est enregistrée sous 
Département No 20 au lieu de 2A et 28. 


189 xx F #44 )RB 
119 DATA "Utilisation Logiciel","Retour Amsdos" )EB 





129 RESTORE 119:FO0R i=1 TO 2:READ ch${i):ch$(i)=ch$(i)+ >UK 
STRING$(35-LEN(ch$(i)),"_"):NEXT 

139 DATA 33,189,16,223,7,16,291,13,198,7,38,8,289,8,1,1, CV 
19,9,3 

149 FOR i=k1899 TO &1812:READ a:POKE i,a:NEXT:CALL &199 TR 
ÿ:OPENOUT "x":MEMORY HIMEM-1:CLOSEOUT:DEF INT a-z:MODE 2 

: BORDER 9:INK 9,8:INK 1,15:CLS:VINDOU#:,38,58, 1, 3:PAPER 
#1,1:PEN#1,9:CLS#1:iv$=CHRS(24):DEF FNct$(a$)=SPACES((B 
ÿ-LEN(a$))/2)+a$ 

158 LOCATE#1,2,2:PRINT#L,"GE NE AL D G | E":PLOT 24ÿ )CT 
,348:DRAN 493,348:DRAW 493,395:PLOT 242,346:DRAV 495,34 
6:DRAW 495,393:t$=CHR$(164)+" Copyright 1992":t1$=" Ph. 
Boutin":t2$="Version Amstrad Cpe 6128":t4$:"Fanily Hist 

ory Systen":t3$="Version 

169 LOCATE 1,6:PRINT FNct$(t$):LOCATE 1,8:PRINT FNct$(t >VP 
1$):LOCATE 1, 19:PRINT FNot$(t29):t6=t48+" "+t3$:LOCATE 
1,12:PRINT FNct$(t$) 

179 1x=22:1y=19:FOR i=1 TO 2:LOCATE 1x, Iy:PRINT SPACES( DPR 
1):ch$(i);SPACES(1)siv$sisiv$:ly=ly+2:NEXT 

189 r$="":WHILE r$=""er$= INKEYS:NEND:r=VALIr$):1F r>2 T DHB 
HEN 189 

199 ON r GOTO 219,298 NU 
298 CALL ÿ GA 
219 LOCATE 32,25:PRINT CHR$(28);:PRINT CHR$(7);:PRINT i HE 
v$;" Chargement ";iv$ 


229 RUN"fhs.prg NT 
FHS.PROG 
199 ‘xxx FHS.prg x44 »RB 
119 ON BREAK STOP MR 


115 CLEAR INPUT:WINDOWH#1,1,89,1,25:PAPERK1,D:PENKH1,1:CL DFW 
SH1 

129 t$=" MESSAGES ":nt=15:fic=63:nru=19:prog=14:nf-f:na DRE 
xpage=45:file$=STRINGS(8,232)+CHR$(46)+STRINGS (3, 232) :D 

IN fic$(fic,nru),rub$(nru),prog$(prog},mt${ni),nois(pro 
g-2) 

138 DATA pii,p12,p13,p14,p15,p16,p17,p18,p19,p28,p2t,p2 LH 
2, p23, p24 

149 DATA" Nom & Prinon", "Pire", "M}re","o ",Localit{,D{pa DLF 
rtement,"+ ",Localit{,Dipartement, "x ",Localit{,Diparte 
ment, "N-P Conjoint 1",")( ","xx ",Localit{,D{partement 

"N-P Conjoint 2",Profession,Enf 

159 DATA Jan,Fev,Mar,Avr,Mai,Juin,Juil, Aout, Sep,Oct, Nov LE 
, Dec 

169 DATA "Index du Fichier","Liste Sinplifite","S{lecti )QD 
on une Fiche ","Fichier en Totalit{", "Tableau D{taill{ 
"Quitter sous-menu" 

179 RESTORE 149:FOR r=9 TO nru:READ rub$(tr):NEXT:RESTOR )JP 
E 139:FOR i=1 TO prog:READ prog$(i):NEXT:RESTORE 168:F0 

R i=1 TO 6:READ visu$(i):NEXT:RESTORE 159:FOR i=1 TO 12 
:READ noi$(i):NEXT 

189 CLS UD 
199 1y=368:1z=399:PLOT 9,B:DRAW 639,ÿ:DRAW 639, 1z:PLOT CF 
9,1z:DRA 639, 1z:PLOT 9,8:DRAN 9,1z:PLOT 8,1y:DRAN 639, 
ly:PLOT 9,48:DRAU 639,49:1x=164:GOSUB 219:1x=489 : GOSUB 
219:1x=194:1y=9:12=49:GOSUB 219:1y=369:1x=551: 12=399:G0 

SUB 219:1x=487:1y=ÿ:1z=49:GOSUB 218 

289 GOSUB 288:G0T0 228 )QA 





FE 


219 FOR i=1 TO 3:PLOT 1x,1y:DRAN 1x,1z:1x=1x+i:NEXT:RET >HH 

URN 

229 WINDON#1,15,69,24,24:WINDOW#2,22,59,2,2:WINDON#3,2, DH 

19,2,2:WINDOW#4,62,68,2,2: WINDOW#5, 2, 12,24, 24:WINDOUEG 

, 11, 79,2, 2:WINDOW#7,63, 79,24,24:FOR w=1 TO 7:CLS+w:NEXT 
:WINDOW 2, 79,4,22:LOCATERS, 3, 1:PRINTHS, t$ 

239 CLEAR INPUT:LOCATE#1,2,1:PRINT#1, "Date (jj-nm-aaaa) )CJ 
MsLINE INPUT#1," ",date$:IF LEN(date$)(>19 OR datet- 

"OR VALCRIGHT$(dates,4)) <1992 THEN 239 ELSE CLS#i:an 

nee=VAL(RIGHT$(date$,4)):mois=VAL(NID$ (dates, 4,2)) 

249 date$=LEFT$(dates,2)+" "+moi$(mois)+STR$ (annee) :GO0T DHC 

0 1908 

259 DATA "Ajouter Donntes", "Modifier Fiche","Visualiser >M4 
Donnies", "Rechercher Donntes"," Impression G{n{rale 

269 DATA "Charger Fichier","Eph{airides", "Sauver Fichie >BD 

r","Unions Connues", "Famille / Branche'","Nais-D{c}s / D 
{partements","Par Age / Tx Mortalit{" 

278 DATA "Goamer Fiche", "Listing Arbre INP","Quitter Fa >BE 

nily v.i* 

289 ESC$=CHR$(27):act$=CHR$(1) :off$=CHR$(Z):nlargé=CHR$ >FQ 
(28) 

298 reseth=esc$+"@":cond$=CHR$(15):ncond$=CHR$(18): larg >BR 
$=esc$+"E"+CHR$S(14) 

319 gra$=esc$+"E":ngra$=esc$+"F":gro$=esc$+"W"+acté:ngr >XM 
o$=esc$+"W"+off$ 

329 soul$=esc$+"-"+act$:nsoul$=esc$t"-"+offé:elité=escé >DY 
+"Mt:nelit$=esc$+"P" 

359 ital$=esc$+"4":nital$=esc$+"5":nlq$=esct+"x"+act$:n )BN 
nlq$=esc$+"x"+off$ 

369 1t16$=esc$+"2":1t178=esc$+"1":picatznellt$tngro$inc )TE 
ond$ : RETURN 

1895 titre$="Family History Systen - v.1":CLS:LOCATE#2, DEN 
8,1:PRINT#2,titre$:RESTORE 259:FOR i=1 TO mi:READ ni$(i 
DENEXT:1x=19:1y=3:FOR i=1 TO (ni+1)/2:LOCATE 1x, 1y:PRIN 

T UPPERS(LEFT$(m1$(i),1));" - "imi$(i):ly=ly+2:NEXT:ne$ 
="Charge 

1828 CLS#3:LOCATE#3, 4, 1:PRINTH3, date$:1x=45:1y=3:FOR i= >PH 
(mi+1)/2+1 TO mi:LOCATE Ix,ly:PRINT UPPER$S(LEFT$(mt$li) 
115" - "imt$li):ly=ly+2:NEXT:dispo=INT(FRE(" ")/1989) 
itom=42:myd=(dispo/tom)*189:CLSH4:LOCATE #4,2, 1:PRINTH4 
USING" +H &";INT(nyd) :LOCATEH7, 3,1 

1938 PRINT#7, files :CLSH6: LOCATEHG, 2, L:PRINTHG,USING"#HH >XY 
fic"inf:n$="Votre choix ?":CLS#1:LOCATE#1,2,1:PRINTHI, 


n$ 
1849 tex$="amvricesufnpgldq":GOSUB 3998 QD 
1959 IF k=16 THEN 1969 ELSE 1989 XP 


1869 IF fnod=1 THEN CHAIN MERGE prog$(8),5999,DELETE 59 )BD 
19- 

1878 WINDOW 1,88,1,25:RUN°F." )XA 
1989 CLS#1:LOCATE#1,2,1:PRINT#1,me$ ; SPC(1) ;UPPER$ (prog$ >HF 
(k)} 

1899 CHAIN MERGE prog$(k),5998,DELETE 5919- )KY 
1199 END »YA 
2895 can=8:CLS#1:LOCATE#1,2,1:PRINTHI,"(E)cran ou (1)np >YY 
rimante":tex$="ei":GOSUB 3999 

2819 IF k=1 THEN can=8:G0TO 2849 >YD 
2839 1F INP(&F599)-94 THEN CLS#1:LOCATE#1, 2, 1:PRINTH1," CZ 
laprimante non-connectie !":G0TO 2939 ELSE CLSH1 

2849 RETURN )EK 


3895 tex$=UPPERS(tex$) RC 
3919 r$="":WHILE r$="":r$=INKEYS:WEND )FA 
3828 r$=UPPERS$(r$):k=INSTR(tex$,r$) )EA 
3939 IF k=8 THEN 3919 >NP 
3845 RETURN )FA 


4989 CLS# :LOCATE#1,2,1:PRINT#{, "Pressez une touche svp DVR 
":CALL &BB/6:CLS#1 :RETURN 


5899  - Pii - >XH 
5815 CLS#2:titre$=n1$(1):LOCATE#2, 18, L:PRINTH2, titre$:C DRM 
LSti:n=nf+l 

5829 IF n=fic+l THEN LOCATE#,2,1:PRINT#1, "Fichier conp )FK 
let ! Une touche svp":CALL &BBSG6:CLS#H1:GO0T0 1894 

5835 LOCATE#1,2,1:PRINT#1, "Ajout Fiche "in PK 
5949 CLS:db1=ÿ )YE 
585$ 1x=5:1y=1:FOR r=8 TO nru-1:LOCATE 1x, ly:PRINT rub$ >FP 
(r):1y=ly+1i:NEXT:1x=58:LOCATE 1x, 1y-1:PRINT rub$(nru):1 
x=25:]y=1 


5868 FOR r=9 TO nru-1 >PR 
5979 LOCATE 1x,ly >MH 
5889 LINE INPUT "",fic$(n,r) DT 
5999 IF fic$(n,@)="" THEN CLS:CLS#1:GOTO 1909 )LB 


5199 IF r=9 AND fic$(n,r)©"* AND UPPERS(RIGHTS(files,3 >VH 
))="ACT" THEN 5239 | 


5118 IF dbl=1 THEN 5979 ELSE 5128 YF 
5129 IF r=3 OR r=6 OR r=9 OR r=13 OR r=14 THEN 5219 )NG 
5138 1F r=5 OR r=8 OR r=11 OR r=16 THEN 5229 GC 
5149 ly=ly+1:NEXT NL 
5158 1x=57:1y=1y-1 )N2 
5169 LOCATE Ix,1y:LINE INPUT"",fic$(n, 19) KP 


5178 IF fic$(n,19) <>"" AND VAL(fic$(n,19)) >15 THEN 51 DWT 
69 

518$ LOCATE#1,2,1:PRINT#H1, "Correct (o,n) ?":tex$="on":G >RA 
OSUB 3999 

5198 IF k=2 THEN 594$ )NG 
5299 nf=n:fmod=1:G0TO 5919 NV 

5218 IF fic$(n,r) ©" AND LEN(fic$(n,r)) <>18 THEN 597 >GF 

ÿ ELSE 5149 

5228 IF fic£(n,r) ©" AND VAL(fic$(n,r)) )95 THEN 5879 DFB 
ELSE 514ÿ 

5238 FOR i=1 TO nf:FOR j=9 TO nru:lF fic$(i,j)=ficé(n,r >KN 
) THEN 5268 

5248 NEXT j,i XKK 

5259 GOTO 5119 | >MG 

5268 CLS+L:FOR b=1 TO 3:LOCATE#1,2,1:PRINT#1, "Existe di >PP 
ja ! Fiche No'";i:FOR t:1 TO 2988:NEXT t,b:dbl=1:GOT0 51 

18 


P 1 2 . 


5895 * - P12 - >XH 
5919 IF nf<i THEN 1999 >PD 


46 


a 


Q 
e- 


5925 CLS#2:titre$-m1$(2) :LOCATE#2,12,1:PRINT#2,titre$ DAH 
5938 CLS:CLS#1 :LOCATE# ,2, 1 :PRINT#1, "No Fiche @ modifie >TN 
pt MieLINE INPUT#1,"", nu$ 

5849 IF nu$="" THEN CLS#1:GO0TO 1999 ELSE nu=VAL(nu$):IF >BW 
nu<t OR nu>nf THEN 5939 

5959 CLS:CLS#1 »XG 

5869 Ix=28:1y=1 FE 
5978 FOR r=8 TO nru-1:LOCATE 1x,1y:PRINT USING"##";r+t; DUT 
PRINT " - "srub$(r);STRING$(18-LENCrub#(r)),46);SPC(1) 
ificé(nu,r):1y=1y+{:NEXT 

5888 CLS+L:LOCATE#1,2, 1:PRINTH1, "Ok nodif” ? (0,N)'":tex >BF 
$="on":GOSUB 3998 

5999 1F k=2 THEN 5839 NE 
5198 LOCATEH 1, 2,1:PRINT#1,CHR$(18);"No Iten @ nodifier >PK 
3? MieLINE INPUTHI,"",nun$ 

5119 IF num$="" THEN 5939 ELSE nua=VAL(nun$):IF nunti »VZ 
OR numonf THEN 5958 

5129 r=nun-1:]y=r+1:1x=44 >VH 
5139 LOCATE 1x,1y:PRINT CHR$(18);:fic$(num,r)="" >TU 
5148 LINE INPUT "",fic$(nu,r):LOCATE 1x, Iy:PRINT CHR$(L DTN 
8);fic$(nu,r):fmod=1:G0T0 5199 


P 1 3 . 


5998 ' - p13 - >XH 

5919 IF nf=8 THEN 1999 >PD 

5828 CLS:CLSH3:CLSH2:titreé="Visualiser les Donnees":LO DHK 

CATE#2, 19,1::PRINT#2, titre$:CLS#1:1x=39:1y=3:FOR v=2 TO 
G:LOCATE 1x, 1y:PRINT LEFTS(visu$(v),1);" - Mivisu$(v): 
ly=ly+2:NEXT:tex$="Isftq":GOSUB 3999 

5438 IF k=5 THEN CLS#1:G0TO 1999 )YY 

5932 IF k=4 THEN CLS#1:LOCATE#1,2,1:PRINT#{, "Utiliser 0 >WF 

ptions IMPRIMER ! une touche":CALL &BBB6:CLS#1:GOTD 542 

ÿ 

5848 ON k GOTO 5219,5859,5199 )VJ 
5959 CLSH1:CLS#3:LOCATE#3, 2, 1:PRINT#3, "Fiche ";:LINE IN DTF 

PUT#3, "",nu$ 

5968 1F nu$="" THEN CLS#1:G0T0 5829 ELSE nu=VAL(nu$):1F >BG 
nu<{ OR nunf THEN 5959 

5978 CLS :CLSH1: LOCATEH1, 2,L:PRINT#L, "Patientez ...":LOC >XG 
ATE#1,2,1:PRINT#1, "Fiche No "inu:lx=28:1y=1:FOR r=9 TO 
nru-f!LOCATE 1x,1y:PRINT rub$(r):STRING$(18-LEN(rub$(r) 


),46); 
5888 PRINT SPC(H);fic$(nu,r):1y=ly+1:NEXT:GOSUB 5248  >ZP 
5999 * »YG 


5199 CLS#L:CLS:1x=29:1y=1:FOR r=8 TO nru-1:LOCATE 1x, ly WC 
PRINT rub$(r);STRING$(18-LEN(rub$(r)),46):1y=1y+1:NEXT 
til 

5119 CLS+3:LOCATE#3, 2, !:PRINTH3, "#5; :PRINT#3,USING"#H#" WC 
sisslxz39:ly=1 

5129 FOR r=9 TO nru-L:LOCATE 1x,1y:PRINT CHR$(18);fic$( DAM 
i,r):ly=lyt{:NEXT 

5138 CLS#L:LOCATE#H,2,1:PRINTH1, "(Debut (A)vant 
ite (F)in (Menu":tex$="dasfn":GOSUB 3989 

5149 IF k=1 THEN i=1:G0T0 5118 )WQ 
5159 IF k=2 AND i={ THEN CLSH1:LOCATE#1,2,1:PRINT#1, "Pr >CQ 


(Su DWU 


47 


esiere fiche ! une touche":CALL &BB8G::GO0TO 5138 
5169 IF k=2 AND id1 THEN i=i-{1:GOTO0 5119 >FA 
5178 IF k=3 AND i=nf THEN CLSH1:LOCATER1,2,1:PRINT#1,"D DEF 
erniere fiche ! une touche":CALL &BB86::GO0T0 5139 


5189 IF k=3 AND itnf THEN i=it{:GOTO 5119 >GP 
5199 IF k=4 THEN i=nf:G0TO 5119 )YX 
5299 IF k=5 THEN CLS#1:G0TO 5999 )YB 
5219 CLS:ligne:ÿ )LZ 


5229 FOR i={ TO nf:PRINT USING"#HE";j;:PRINT" - "ific$( DEX 
i,8) 
5239 ligne=ligne+ti:1F ligne=18 THEN GOSUB 49#9:CLS:lign )EH 
e=ÿ 
5235 NEXT >LG 
5249 GOSUB 4999:CLS:GOTO 5999 »XG 


P 1 4 . 


5999 * - Pi4 - >XH 
5919 IF nf=8 THEN GOSUB 4999:G0T0 1938 >)DV 

5928 DIN year$inf):GOSUB 2299:1F can=8 THEN PRINTHB,itl >PD 
6$;:WIDTH 84 

5439 DATA "Non complet ou une partie","Localite, ville )JG 
ou village", "Departement - de 1 @ 95", "Annee Nais. (maxi 
annte en cours)", "Select-An deces (idem)", "Mariage Ann 

{e (idem)","Tri par Siecles'","Quitter menu recherches" 

5948 RESTORE 5939:FOR i=1 TO 8:READ cherch$(i):NEXT )VE 
5958 CLS#2:CLS:titre$="Recherches Specifiques":LOCATE#2 >HD 
,19,1:PRINT#2,titre$:1x=25:1y=3 

5969 FOR i=1 TO 8:LOCATE 1x,1y:PRINT LEFT$(cherch$(i),1 >VU 
13" - "icherch$(il:]y=1y+2:NEXT:tex$="n]dasntq":GOSUR 3 

989 

5978 IF k=B THEN CLS#{:ERASE year$:CLEAR INPUT:GOTO 199 >BK 
ÿ 

5889 ON k GOTO 5999,5229,5239,5250,5278,5299,533ÿ )PJ 

5898 CLS:CLS#1:LOCATE# 1, 2, {:PRINT#1, "Nom : ";:LINE INPU >2Q 

TH1,"",rech$:GOSUB 5319:CLStim$="Non":GOSUB 5324 


5199 FOR i=1 TO nf DLF 
5118 IF INSTR(ficé(i,8),rech$) THEN GOSUB 5149 NL 
5129 NEXT KK 


5138 GOSUB 4B9S:ERASE year$:ERASE cherch$:recht="":G0TO >GZ 
5899 

5149 PRINT#can, USING'"H##";i;:PRINTécan," - "sfic$(i,4) >»ZC 
5159 IF tim$="Localite" THEN PRINThcan,"o ":fic$(i,4):P >XM 

RINTHcan, "+ "ific$(i,7):PRINTcan,"x "sfic$(i,14):PRINT 
tcan 

5168 1F tin$="Departesent" THEN PRINTtcan,TAB(3):"o ";f DXR 
ic$(i,5);" / Mit Mificé(i,8);" / “ix Msfic$(i,11):PRI 

NTtcan 

517$ 1F tin$="Annee Nais." THEN PRINTtcan," - ":fic$(i, DEJ 
3) 

5189 IF tin$="Annee Deces" THEN PRINTtcan," - ":fic$(i, >EK 

6) 

5199 IF tin$="Annee Mariage" THEN PRINTfcan," - ":fic$( >HP 
i,9) 

5298 IF tin$="Non" THEN PRINTHcan )BX 

5218 RETURN >FB 





5228 CLS#1:LOCATE#, 2, 1:PRINTH1I,"Localite : "32LINE INP )CJ 

UT#1, "",rech$:GOSUB 5319:CLS:tim$="Localite":GOSUB 532 

D:j1=4:)2=7: 53-19: j4=15:GOSUB 5559: GOTD 5138 

5239 CLS:CLS#1:LOCATE#1,2,1:PRINT#1, "Departement (NN): 

"3tLINE INPUT#1,"",rech$:GOSUB 5319:1F rec OR rec>95 
THEN 5238 

5249 CLS:tim$="Departement":GOSUB 5329: j1:5: 2:8: j3=11: 
j4=16:G0SUB 5558:G0T0 5138 

5258 CLS:CLSH4 :LOCATEN1, 2, L:PRINT#1, "Annee nais (AAAA): 
"isLINE INPUT#1,"",rech$:GOSUB 5319:1F rec)annee THEN 

5254 

5268 CLS:tim$="Annee Nais.":GOSUB 5329: j=3:GOSUB 5528:G >NA 
OTO 5139 


»2Y 


)Q 


RT 


5278 CLS:CLSH1:LOCATER{,2,1:PRINT#{, "Annee Deces (AAAA) JUL 
 MitLINE INPUT#1,"",rech$:GOSUB 5319:1F rec>annee THEN 
5278 

5288 CLS:tim$="Annee Deces":GOSUB 5324: j=6:GOSUB 5528:G DNC 
OTO 5139 

5298 CLS :CLSH1 :LOCATEN1,2,L:PRINTHI, "Annee Mariage (AAA DYB 
A): "stLIiNE INPUT#1,"",rech$:GOSUB 5319:1F rec)annee TH 

EN 529ÿ 

5398 CLS:tim$=*Annee Mariage":GOSUB 5324: j=9:GOSUB 5529 DTA 

:G07T0 5139 

5319 IF rech$="" THEN 5979 ELSE rec=VAL(rech$):RETURN  DXF 
5329 LOCATE 2,1:PRINTtcan,"Fanily History System - Rech DAL 
erche "itia$;" : "srech$:PRINT#can: RETURN 

5338 CLS:c1=9:c2=9:c3=ÿ:c4=ÿ:ct=8:DIM dn(nf) >MQ 
5349 FOR i={ TO nf >LH 
5359 IF RIGHTS(fic$(i,3),4)="" OR RIGHT$(tic$(1,3),4)=" >PY 
4.4" THEN 537$ 

5368 dn(i)=VALIRIGHT$(fic$(i,3),4)) )CY 
5379 NEXT )LG 
5389 FOR i=i TO nf )LR 
5399 IF dn(i)»=1699 AND dn(i)<1799 THEN cé=c4ti:ct=ct+i >XQ 
5498 IF dn(i)>=1799 AND dn(i)<1889 THEN ci=citi:ct=ctt >XJ 
1 

5419 IF dn(i)>=1894 AND dn(i)<1999 THEN c2=c2t{1:ct=ct+ >XP 
1 

5429 IF dn(i)):1998 AND dn(i)<2989 THEN c3=c3+{:ct=ct41 >XD 
5439 NEXT »LD 
5444 PRINTAcan, "Etat des Recherches actuelles par Siecl >XB 
es " 

5459 PRINT#can, "(Analyse du fichier ";UPPER$(filef):" s >MY 
ur Date de Naissance)":PRINT#can 

5469 PRINT#can, "XVII eme Siecle ...... "ic4i" fiches":P >TH 
RINT#can 

5478 PRINTHcan, "XVIII eme Siecle ..... *scis" fiches":P DTY 
RINT#can 

5488 PRINTican, "XIX eme Siecle ....... "sc2;" fiches":P DRC 
RINT#can 

5498 PRINThcan, "XX eme Siecle .,......, “sc3;" fiches":P DRA 
RINT#can 

5599 PRINTHcan, "Total .....,..,,,...., “sct;" fiches co DNF 
nnues 

551$ GOSUB 499:ERASE dn:ERASE year$:CLS:GOTO 5998 >VH 
5529 FOR i=1 TO nf:year$(i)=RIGHT$(fic$(i, j),4) >QV 
5538 IF INSTR(year$(i),rech$) THEN GOSUB 5148 >MH 


% 
e- 





5549 NEXT:RETURN MC 
555$ FOR i=1 TO nf )LQ 
5569 IF INSTR(fic$(i,j1),rech$) OR INSTR(fic$(i, j2),rec >MD 
h$) OR INSTR(fic$(i, j3),rech$) OR INSTR(fic$(i, j4),rech 

$) THEN GOSUB 5148 


5579 NEXT:RETURN MF 
P 1 5 . 
5989 * - PI5 - >XH 
5818 1F nf<i THEN 1998 )PD 
5929 mp=45:GOSUB 2939 >PB 


5839 CLS:PRINT#8, reset$; :PRINT#8, ncond$ : :PRINTHB,it169; >RY 
:WIDTH 189 

5849 LX=38:LY=3:FOR V=1 TO 6:LOCATE LX,LY:PRINT LEFT$(V DDK 
ISU$(V),1)5" - ";VISUS(V) :LY=LY+2:NEXT:tex$="ilsftq":G0 

SUB 3999 


5958 IF k=6 THEN CLS:CLSH1:GOTO 1998 >Ch 
5969 ON k GOTO 5539, 5399, 5979,5129, 5699 )DE 
5879 CLS#L:LOCATE#1,2,1:PRINT#1, "IMPRIME Fiche No : ":: DDN 


LINE INPUT#1,"",nu$ 

5888 IF nu$="" THEN CLS#1:G0TO 5939 ELSE nu=VAL(nu$):1F >BM 
nu<i OR nudnf THEN 5979 

5995 GOSUB 5484:GOSUB 5669:i=nu:G0SUB 549/:GOSUB 5678  DYR 

5189 FOR r=8 TO nru:PRINTK8, TAB(13) ;rub$(r):STRINGS(29- >CB 

LENCrub${r)),46);SPC(1);fic$(nu,r):NEXT:PRINT#8:CLS#1 :G 

OTO 5939 

5119 >XK 

5129 GOSUB 5598:GOSUB 5489:pr1=8:pg=8:GOSUB 5668:PRINTH >QE 

8,TAB(13);"EDITION DES FICHES INDIVIDUELLES DE ":;UPPERS 
(file$);" - ";date$:GOSUB 5679:PRINTHB:pri=pr1+2 


5138 FOR i=deb TO fin )>PQ 
5149 GOSUB 5669:GOSUB 5498:GOSUB 5678:pr1=pr1+2 )RY 
5158 IF fic$(i,8)="?" THEN PRINTHB,TAB(13);"- pas d'inf )JG 
o -":pri=prl+1:G0TO 536 

5168 IF fic$(i,1)="" THEN fic$(i,1)="(non-connu)" JUU 
5178 IF fic$(i,2)="" THEN fic$(i,2)="(non-connue)" JWU 
5188 PRINT#8,TAB(13) ;UPPERS(fic$(i,8));SPC(1):"de "ific DJB 
$(i,1),SPC(1);"et "ific$(i,2):prl=pri+i 

5199 IF fic$(i,18)="" THEN 5219 JW 
5299 PRINT#8,TAB(13);fic$(i,18):pri=pri+i >KK 
5218 IF fic$(i,3)="" THEN 5248 >VK 
5228 IF LEFT$(fict(i,3),6)="...... "AND RIGHTS(fic$(i,3 >CV 
1,41OM THEN PRINT#8,TAB(13) srub$(3):;SPC(1);" en ":RI 
GHT$(fic$(i,3),4):prl=pri+1:GOTO 5248 

5239 PRINT#8, TAB(13) ;rub$(3);SPC(1);fic$(i,3):SPC(1);fi >ZH 
c$ti,4);SPC(1)sfic$(i,5):pri=pri+i 

5249 IF fic$(i,6)="" THEN 5288 >VH 
5259 IF LEFT$(ficé(i,6),6)="....., "AND RIGHTS (fic$(i,6 >CQ 
1,4)6"" THEN PRINT#B,TAB(13) srub$(6):SPC(1);" en ":RI 
GHT$(fic$(i,6),4):pri=prl+1:G0T0 5288 

5269 PRINTH8, TAB(13);rub$(6);SPC(1):fic$(i,6);SPC(1):fi >AQ 
c$(i,7);SPC(1);fic$(i,8):prl=pri+i 

5279 IF fic$(i,19)="" THEN PRINTHB, TAB(13) :rub$(9);SPC( PM 
1);:G0T0 5339 

5288 IF fic$(i,9)="" THEN 5368 )VC 


TR 


5298 PRINT#8,TAB(13) srub$(9):SPC(1);fic$(i,9);SPC(1);ifi 

c$li,18#);SPC(1);fic$(i,11); 

5399 PRINT#8," avec "ific$(i,12):prl=prl+2 

5318 IF fic$(i,131="" THEN 5348 

5329 PRINT#8,TAB(12) srub$(13) ;SPC(1)ific$(i,13):prl=prl 

+1 

5339 IF fic$(i,17)O"" THEN PRINT#8,TAB(13) ;rub$(14);SP 

C(1);:G0T0 5399 

5349 IF fic$(i,t4)="" THEN 5364 

5359 PRINT#8,TAB(12) srub$(14) ;SPC(1);fic$(i,14);SPC(1); 

fic$(i,15);SPCI1);fic$(i,16);" avec "ific$(i,17):prl=pr 
1+2 

5368 IF pri>=np THEN pg=pg+!:PRINT#8:PRINT#8, condf; :PRI 

NT#8,TAB(69);"- Family History System page ";pg;" -";:P 

RINTHB, ncond$;: GOSUB 5489:pr1=ÿ 

5378 PRINT#8:NEXT:CLS#1:GOTO 5939 

5389 

5398 pg=1:GOSUB 5669:PRINT#8, TAB(12);"Fanily History Sy 

sten ";:GOSUB 5679:PRINTH8, TAB(54);"-Page ":pg;"-"idate 

$:PRINTHB:PRINT#B 

549ÿ FOR i=1 TO nf 

5419 PRINT#8,TAB(13) ;USING"###"; 1: :PRINT#8," - ";:PRINT 

#8, UPPER$(fic$(i,9)) 

5429 PRINTH#S,TAB(15);"Nais : 
,5):TAB(38);fic$(i,4) 

5438 PRINT#8,TAB(15);"Dec. 
,8);TAB(38);fic$(i,7) 

544ÿ PRINT#8,TAB(15);"Mar. : ";Fic$(i,9);TAB(35);Fic$(i 
,11);TAB(38);fic$(i,19):PRINT#8 

5459 1F i=19 OR 1=29 OR i=39 OR i:48 OR i:59 OR i=69 OR 
i=7ÿ OR i=89 OR i=9ÿ OR i=199 OR 1=119 OR 1=129 THEN G 

OSUB 5529:G0T0 5469 ELSE GOTO 5479 

5469 GOSUB 5668:PRINT#8,TAB(17);" Family History System 
":GOSUB 5678:PRINT#8, TAB(84); "Page ":pg:PRINTHB:PRINT# 
8 

5478 NEXT:GOTO 5938 

5488 GOSUB 4998 :LOCATEN, 2, 1:PRINT#1,CHR#( 18); Impressi 

on en cours ,..":RETURN 

549ÿ PRINT#8,TAB(13) ; i:PRINTH#B:RETURN 

5598 PRINTK8, larg$; :RETURN 

5519 PRINT#,nlarg$ ; :RETURN 

5529 GOSUB 4899:pg=pgt1:LOCATE#,2,1:PRINT#I,CHR$(18);" 
Edition page ";pg:RETURN 

5539 CLS+L:G0SUB 5489:cpte=9:GOSUB 5664:PRINT#8,TAB(19) 
;"Fanily History System - Index de : ";UPPER$(file$);" 
- *idate$:GCOSUB 5679:PRINTHB:PRINT#8 

5549 FOR i=1 TO nf 

5558 PRINTH8,TAB(15) ;USING"###";i5:PRINT#E," - "ificé(i 
,#):cpte=cpte+ti 

5569 1F cpte=np THEN GOSUB 5489:cpte=ÿ 

5579 NEXT 

5589 CLS+L:G0TO0 5939 

5599 LOCATE#1,2,1:PRINT#1,CHR$(18);"(Tlotalite ou (Par 
tiel de..a":tex$="tp":GOSUB 3899 

5699 IF k=1 THEN deb=1:fin=nf :RETURN 

5618 LOCATE#1,2,1:PRINT#1,CHRS(18) ; "Premiere Fiche : "; 
LINE INPUT#1," ",deb$ 

5629 IF deb$="" THEN CLS#1:G0T0 5998 ELSE deb=VAL(deb$) 
‘IF deb(i OR deb>nf THEN 5619 


"Fic$(i,3);TAB(35);Fic$(i 


: MsFic$(i,6);:TAB(35);Fic$(i 


M] 
MY 
JUN 
>DD 
>TR 


JW 
RF 





5634 LOCATE#1, 2, 1:PRINT#1,CHR$(18); "Derniere Fiche : "; 
LINE INPUT#1," ",fin$ 

5649 1F fin$="" THEN CLSH{:G0T0 5638 ELSE fin=VAL(fin$) 
:IF fini OR finnf OR fin<deb THEN 5638 


5659 RETURN DFK 
5669 PRINT#8, soul $; : RETURN XX 
5678 PRINT#8, nsoul $ ; : RETURN )YD 
5689 »>2B 
5699 * - Tableau d{taill{ - )2C 
5799 ftab:1 >XA 
5719 IF UPPERS(RIGHT$(files,3))="ACT" THEN ftab:2 )TJ 


5729 IF ftab=1 THEN titre$="TABLEAU GENEALOGIQUE DETAIL 

LE" ELSE titre$="TABLEAU ACTES DETAILLE" 

5739 GOSUB 2939 

5749 PRINTA8, CHR$(27)+"@"; :PRINTHB, CHR$ (15) ; :PRINTRB, CH 

R$(27)+"2" 5; :WIDTH 169:pg=1:1g=9:ge=1:v$=CHR$(33) 

5758 ON ftab GOTO 58i9,6928 

5768 PRINT#8,TAB(79);titre$:PRINT#B:PRINT#8, "Family His 

tory Systen";TAB(144);date$:PRINT#8, STRING$(157,45) 

5779 PRINT#8,v$;TAB(3); "No"; TAB(7) ;v$;TAB(15) ; "NDOMS & P >RU 

RENOHS";TAB(38) ;v$;TAB(41); "DATES & LIEUX" ;TAB(69) ;v$;T 

AB(71), "DATES & LIEUX"; TAB(189) ;v$;TAB(192) ; "DATES & LI 

EUX"; TAB(131) ;v$;TAB(133) ; "PROFESSION"; TAB(157) ;v$ 

5789 PRINT#8,v$:TAB(7);v$;TAB(38) ;v$;TAB(41); "DE NAISSA DKM 

NCE";TAB(69) ;v$;TAB(71);"DE MARIAGE"; TAB(199) ;v$;TAB(19 

2);"DE DECES":TAB(131) ;v$; TAB(133) ; "CONNUE"; TAB(157) ;v$ 

:PRINTHB, STRINGS(157,45):1g=1g+7:RETURN 

5799 PRINT#B:PRINT#8:PRINTHS, TAB(89);"- Page";pg;" -":R 

ETURN 

5899 PRINTHG, v$;TAB(7);v$:TAB(157) ; v$: :PRINTHB, v$:; TAB(7 DTX 

);STRINGS (62, 42) ; TAB(75) ; "GENERATION ";ge;TAB(94) ;STRIN 

G$(62,42);TAB(157);v$:PRINTHB, v$: TAB(7);v$;TAB(157) ;v$: 

1g=1g+3:RETURN 

5819 ‘ x#* tableau genealogique 

5828 CLSH1:LOCATE#, 2, 1:PRINT#1, "Combien de G{n{rations 
(1@7) 7"; 

5839 LINE INPUT #1,"",g$:1F g$="" THEN 5839 ELSE g=VAL( >CQ 

g$):IF g<i OR g>7 THEN 5839 


5849 ON g GOSUB 5869,5879, 5888, 5899, 5989, 5919, 5929 )QA 
5859 PRINT#8, STRING$(157,45):CLS#1:GOTO 5999 NU 
5869 GOSUB 5939:RETURN RL 
5879 GOSUB 5939:GOSUB 5949:RETURN CV 
5889 GOSUB 5939:GOSUB 5949:GO0SUB 5958 :RETURN NZ 


5899 GOSUB 5934:GOSUB 5948:GOSUB 5959:GOSUB SAGD:RETURN >BG 


5998 GOSUB 5939:G0SUB 5949:GOSUB 5954:GO0SUB 5964:GOSUB PA 
5978 : RETURN 

5919 GOSUB 5939:G0SUB 5949:GOSUB 5959:G0SUB 5968:GOSUB >EG 
5978:GOSUB 5989:RETURN 

5928 GOSUB 5934:G0SUB 5949:GOSUB 5959:G0SUB 5969:GOSUB >WA 
5979 :GOSUB 5988:G0SUB 5999 :RETURN 

5939 i=1:ge=1:G0SUB 5769:GOSUB 5899:GOSUB GPPS:RETURN  )ZL 
5949 ge=2:GOSUB 5849:FOR i=2 TO 3:GOSUB GYBD:NEXT:RETUR BH 
N 

595ÿ ge=3:GOSUB 5889:FOR i=4 TO 7:G0SUB GBGD:NEXT:RETUR )CH 
N 

5969 ge=4:GOSUB 5889:FOR i=8 TO 15:GO0SUB G9GP:NEXT:RETU DT 
RN 

5974 ge=5:GOSUB 5889:FOR i=16 TO 31:GOSUB GSBD:NEXT:RET DEV 


te 


URN 

5988 ge-6:GOSUB 5889:FOR i-32 TO 63:GOSUB G#9G:NEXT:RET DEA 
URN 

5999 ge=7:GOSUB 5889:FOR i=64 TO 127:GOSUB GYSB:NEXT:RE )FQ 
TURN 

6999 PRINT#E, v$:;TAB(2) ;USING'"###";i5 :PRINT#8,TAB(7);v$; HF 
TAB(9);UPPER$(fic$(i,9));TAB(38);v$;TAB(41);fic$(i,3):T 
AB(69);u$;TAB(71);fic$(i,9);TAB(19D);v$:;TAB(192):fic$(i 
56): TAB(131);v$:TAB(133) :LEFT$(fic$(i,18),23);TAB(157); 

v$ 

6918 PRINTHB, v$;TAB(7);v$:TAB(38) ;v$:TAB(4{);fic$(i,4); HV 
TAB(69);v$;TAB(71):fic$(i,19):TAB(198);v$;TAB(1#2);fic$ 
(i,7),TAB(131) ;v$:;TAB(157) ; v$:RETURN 

6929 * xxx tableau actes >YA 
6939 GOSUB 5769:FOR i=1 TO nf:GOSUB G#BY:NEXT:GOTO 5859 )ZM 


P 1 6 . 


5899 * - P16- >XH 
5919 IF nf>1 THEN 5928 ELSE 5869 >XN 
5929 IF fmod=1 THEN CLS#1:FOR i=1 TO 5:LOCATEN1,2,1:PRI DKW 
NT#1, "Sauvegarde non-effectute !!!":FOR tX=1 TO 159Q:NE 
XT:GOTO 1969 

5938 CLS#L:LOCATE#, 2, 1:PRINT#1, "Effa\age Fichier M{moi DNV 
re":ERASE fic$:DIM fic$(fic,nru):nf=# 

594$ dispo=INT(FRE(" ")/1988):ton=42:myd=(dispo/ton)x1ÿ >DA 
ÿ 

5959 CLS+4:CLS#6:CLS#7:LOCATEN4, 2, L:PRINTH4, USING" #4 % >CQ 
"3 INT(nyd) :LOCATE#6, 2, 1:PRINT#G,USING"#HE fic int 


5469 ON ERROR GOTO 5239 >QH 
5978 USER, 1 >ND 
5984 CLS:CAT I] 


5999 CLS#1:LOCATE#1,2,1:PRINT#{, "Fichier (+suff}h: "s::LI DAH 
NE INPUT#1,"",n$ 

5199 IF n$="" THEN CLS#1::USER,9:GOTO 1998 JJE 
5119 GOSUB 5189 )XD 
5128 IF refus={ THEN CLSH{:LOCATER1, 2, :PRINTHI,"Incorre >KZ 
ct ! une touche":CALL &BBY6:GO0TO0 5998 

5139 file$=n$:CLS#7:LOCATE#7,3,1:PRINTH7,UPPERS(file$) DBL 
5148 LOCATEN1,2,1:PRINT#1,CHR$ (28); "Chargement en cours >QM 
":UINDON 15,69,24,24:CLS 

5159 OPENIN file$:INPUT#9,nf:FOR i=1 TO nf:FOR j=ÿ TO n >RA 
ru: LOCATE#, 42, L:PRINT#L,USING"##"; i: INPUT#9, fic$(i, j): 
NEXT j,i:CLOSEIN 


5169 iUSER, 9 NC 
5179 CLSH:WINDOW 2, 79,4,22:G0T0 1998 )EC 
5189 1=LEN(n$):refus=8:p=INSTR(n$,".") HF 
5199 IF INSTR(n$,CHR$(32))>9 OR 1=8 THEN refus:1 > 
5298 IF p>9 OR (p=8 AND 138) THEN refus:1 )FB 
5219 IF p>9 AND 1-p>3 THEN refus={ AU 
5228 RETURN )FC 


5238 IF ERL=5158 AND DERR:146 THEN CLS:LOCATE 2,1:PRINT >DG 
*Fichier inexistant !":FO0R i%=1 TO 399B:NEXT:CLS:WINDOW 
2,79,4,22:RESUME 5898 


50 


P 1 7  .:. 


5998 ' - P17 - 

5919 IF nf=8 THEN 1999 

5928 GOSUB 2899:GOSUB 5329:CLS#1:LOCATE#1,2,1:PRINT#1," 
Ephemerides de ";deb;" @ "fin 

5839 na=3:de=nax2:ligne=g 

5949 IF can=ÿ THEN t=1:maxpage-18:CLS:G0TO 5199 

5959 IF can=8 THEN t=19 :maxpage-59:PRINTHcan, soul$; 
5969 PRINTtcan,TAB(t);"Family History System - Epheneri 
des - ":UPPERS(file$); 

5478 IF can=8 THEN PRINTHcan, dates 

5989 ligne=LIgNE+1 

5998 IF can=8 THEN PRINTHcan,nsoul$; 

5189 xi=na:tim$="1.Ephemerides de Naissances" 

5119 1F can=8 THEN GOSUB 5249 ELSE GOSUB 5254 

5129 GOSUB 5178 

5138 xl=de:tin$="2.Ephenerides de Deces" 

5149 IF can=8 THEN GOSUB 5249 ELSE GOSUB 5259 

5158 GOSUB 5174 

5168 CLS#1:GOTO 1999 

5178 FOR an-deb TO fin 

5188 FOR j=1 TO nf 

5199 IF RIGHT$(ficé(j,x1),4)="" OR RIGHT#(fic$(j,x1),4) 
=",,,," THEN 5228 

5299 IF VAL(RIGHT$(fic$(j,x1),4))=an THEN PRINTAcan:PRI 
NTkcan,TAB(t);an;" / "iMID$(fic$(j,xt),4,2)5" - ific$( 
j,9);:ligne=ligneti 

5218 IF ligne=maxpage THEN GOSUB 4989:ligne:f 

5229 NEXT j,an 

5238 PRINT#can:GOSUB 4998 : RETURN 

524ÿ PRINT #can, soul$: 

5258 PRINT#can:PRINT#can, TAB(t);tim$:PRINTtcan 

5269 IF can=8 THEN GOSUB 5284 

5274 ligne=ligne+2:RETURN 

5289 PRINT#can, nsoul$: :RETURN 

5298 GOSUB 2499 

5399 NEXT 

5319 cpte=f:RETURN 

5329 CLS#1:LOCATE#,2,1:PRINT#1, "Annee Debut (AAAA):":: 
LINE INPUT#1,"*,deb$:IF deb$="" THEN 5899 ELSE deb=VAL( 
deb$) 

5338 IF deb)annee THEN 5328 

5348 CLS#1:LOCATE#, 2, 1:PRINT#1, "Annee Fin (AAAA):";:LI 
NE INPUT#1,"",fin$:lF fin$="" THEN 5998 ELSE fin=VAL(#i 
n$) 

5359 1F fin<deb DR fin>annee THEN 5349 

5368 RETURN 








>XH 
>PD 
JY4 


)VA 
)Q7 
DYZ 
JVC 


)CN 
JAN 
)EN 
>2) 
)LC 
»XD 
)QR 
>LF 
»XG 
NY 
)QJ 
>LQ 
)TF 


)W2 


)PX 
NB 
C2 
RY 
>UG 
JUL 
WG 
AM 
>XA 
>KK 
>PQ 
>QH 


UA 
>MV 


)EX 
>FH 


5999 * -P1B- 

519 

5924 fileé="":CLS#1 :LOCATE# 1, 2, {:PRINTHI,"(G){n{alogie 
ou (Alctes":tex$="ga":GOSUB 3988 

5939 IF k=1 THEN bip={ ELSE bip=f 

5ÿ4ÿ CLSH1:LOCATE#I,2,1:PRINT#1, "Fichier (sans suff.) : 
"stLINE INPUT#I, "9, f$ 

5959 IF f$="" THEN CLS#1:G0T0 1989 

5868 IF LEN(f$)>8 THEN f$=LEFT$(f$,8) 

5474 IF bip=1 THEN filet=f$+".gen" ELSE file$=f$+t".act 
5989 IF bip: THEN GOSUB 5269 

5999 CLS+#1:LOCATE#,2, {:PRINTH#1, "Sauvegarde Fichier ";U 
PPER$(files) 

5199 FOR i=i TO nf:FOR j=9 TO nru 

5119 IF fic$(i,ÿ)="" THEN fic$(i,ÿ)=" 2??? 

5129 IF fic$(i,3)="" THEN fic$(i,3)=STRING$(19, 46) 
5138 IF fic$(i,6)="" THEN fic$(i,6)=STRING$(19,46) 
5149 IF fic$(i,9)="" THEN fic$(i,9)=STRING$(19, 46) 
5159 IF fic$(i,13)="" THEN fic$(i,13)=STRINGS (19,46) 
5169 IF fic$(i,14)="" THEN fic$li,14)=STRING$ (19,46) 
5179 IF fic$(i,1)="" THEN fic$(i,1)=" (non connu) 

5189 IF fic$(i,2)="" THEN fic$(i,2)=" (non connue) 
5199 NEXT j,i 

5299 WINDOW 15,69,24,24 

5219 :USER, 1 

5229 OPENOUT file$:PRINTHO, nf 

5239 FOR i=1 TO nf:FOR j=9 TO nru 

5249 PRINT#O, fic$(i, j):NEXT j, i :CLOSEOUT 

5258 WINDOW 2,79, 4, 22:CLS#1 :fnod=8: USER, 9:GOTO 1929 
5268 CLS+L:PRINT#1,"TRI (o,n) ?":tex$="on":GOSUB 3998 
5278 IF k=2 THEN RETURN 

5284 CLStL:PRINT#1," Tri de ";UPPER$(file$):" en cours 


5299 FOR i=1 TO nf:FOR j=9 TO nru:fict(i,8)=UPPERS(fic$ 
G,8)):IF fic$(i,j)="" THEN fic$(i, j)=STRINGS(5,"?"):NE 
XT:NEXT 

5394 nun%:=nf 

5318 s1%=nunX 

6324 VHILE 31%)1 

5339 51#%-51%/2 

5348 s2%=num*-51% 

5358 flagx=1 

5369 VHILE flag*=1 

5379 flagx-ÿ 

5389 FOR 53%:1 TO 52%:54%=51%+53% 

5399 IF fic$(s3%,9)>fic$(s4%,8) THEN GOSUB 5439 

5498 NEXT 53% 

5419 WEND 

5429 WEND:.ETURN 

5439 FOR j=8 TO nru 

544ÿ s1$=fic$(s3%, j):fic$(s3%, j)=fict(s4%, j):fic$(s4%, j 
)=51$ 

5458 NEXT 

5469 flagx=1 

5479 RETURN 


te 


“4 


)XH 
DXJ 
)CQ 


>ZH 
KA 


>ZH 
DR 
>ZF 
DK 
>26 


pra! 
>HD 
RH 
>RQ 
RY 
UK 
UN 
UD 
)WD 
>LD 
>QB 
>MK 
)ZN 
»21 
KX 
)YA 
)L] 
RG 
JV 


>UQ 


>GKk 
LE 
2FK 
>LK 
>LF 
>BH 
MY 
)BJ 
AI 
>HX 
)HH 
)JE 
MF 
ME 
)FJ 


)LF 
>BK 
)FK 





5999 ? - P19 - 

5919 IF nf<i THEN 1998 ELSE CLSt#! 

5929 GOSUB 2998:1F can-ÿ THEN GOTO 5229 

5939 PRINTHB, ncond$; :PRINTHB, it16$;:WIDTH 98 

5949 pg=1:cpt=D:GOSUB 4999 

5954 GOSUB 5179:GOSUB 5184 

5968 FOR i=1 TO nf 

5978 1F fic$(i,9)="" OR fic$(i,9)=STRINGS(5,"?") THEN G 
OTO 5149 

5989 1F fic$(i,12)="" OR fic$(i,12)=STRING$(5,"?") THEN 
GOTO 5149 

5999 PRINT#8,TAB(16) ;USING"H###";i;:PRINT#G,TAB(2g);"1"; 
TAB(21) ;UPPER$(LEFT$(fic$(i,9),22));TAB(48);"t"; 

5199 IF LEFT$(fic$(i,12),1)="(" OR MID$(fic$(i,12),2,1) 
="(* THEN mang=mang+i:G0TO 5148 

5119 PRINT#8,TAB(49);fic$li,12);TAB(73);"!";TAB(75)ific 
$(i,9);TAB(9ÿ);"!" 

5128 cpt=cptt1 

5139 IF cpt=maxpage OR i=nf THEN PRINT#8,TAB(15) ;STRING 
$(75,"="):GOSUB 4999:GOSUB 5179:GOSUB 5188:cpt=9:pg=pg+ 
1 

5149 NEXT 

5158 GOTO 1999 

5169 

5179 PRINT#8,TAB(15); "EDITION TABLEAU DES MARIAGES - FI 

CHIER : ";UPPERS(file$):RETURN 

5189 PRINT#8,TAB(15);STRINGS(75,"=");TAB(17) ; "No"; TAB (2 

ÿ);"!";TAB(22);" Concerne ...";TAB(48);"!";TAB(49);" M 

ariele) avec ";TAB(73):"!";TAB(77);" Date";TAB(9ÿ);"!" 
:PRINT#8,TAB(15) ;STRINGS(75, =") :RETURN 

5199 

5298 PRINT#8:PRINTH8, cond$ ; :PRINT#8,TAB(38);"Fanily His 
tory System - Mariages - Page. ";pg:PRINT#8, ncondf ; :RETU 

RN 

5219 

5229 CLS#1:LOCATE#1,2,1:PRINT#I, "Unions connues" 

5238 CLS:naxecr:18:1ig=ÿ 

5248 FOR i=1 TO nf 

5258 IF fic$(i,9)="" OR fic$(i,9)=STRINGS(19,46) THEN G 

OTO 5329 

5268 IF fic$(i,12)="" THEN GOTO 5329 

5279 PRINT USING"###";i;:PRINT SPC(2);LEFT$(fic$(i,9),2 

3),TAB(29)s;"y"it 

5289 IF LEFT$(fic$(i,12),1)="(" OR MID$(fic$(i,12),2,1) 

="("* THEN 532 

5298 PRINT fic$(i,12);TAB(63);"le "sfic$(i,9) 

5388 lig=lig+! 

5318 IF lig=naxecr THEN GOSUB 4988:1ig=8 

5328 NEXT 

5338 GOSUB 499$ 

5349 CLS#1:G0T0 5158 


>XH 
Y 
DEA 
>PP 
NZ 
>UG 
LL 
)FH 


HP 


FE 


P 2 0 


5999 ' - P2ÿ - 

5918 IF NF-8 THEN 1999 

5928 IF UPPERS(RIGHT$(files,3))="ACT" THEN LOCATEH1,2,1 
:PRINT#1, CHR$ (28) ;"fichier d’Actes ! une touche svp ": 

CALL &BB96:CLS#1:G0TO 1999 

5939 ligne-d:pg=1:can-f:maxpage=18:G0SUB 2989 

5849 IF can=8 THEN naxpage=66:GOSUB 5259:GOSUB 4998 
5958 CLS#1 :LOCATER1,2,1:PRINT#1, "Branche (Plere ou (Me 
re":tex$="pm":GOSUB 3989 

5968 ON k GOSUB 5989,5149 

5979 CLS+#1:LOCATE#1,2, 1:PRINT#1, "Fin de liste - Une tou 
che":CALL &BBÿ6:CLS#1:CLS:GOTO 1999 

5889 1F can:8 THEN PRINTH8, soul$; 

5999 CLS#1:1F can=ÿ THEN 5138 

5199 PRINTH#can, SPACE$(9);"Liste Agnatique Paternelle de 
",UPPERS(fic$(1,9));SPC(1);date$ 

5119 IF can=8 THEN PRINTH8, nsoul$; 

5129 PRINTtcan:ligne=ligne+2 

5139 CLS:x=2:GOSUB 5289:x=xx2:GOSUB 5288:x=x+1:GOSUB 52 
98:x=8:GOSUB 5298 :nb:3:G0SUB 5249:x=16:GOSUB 5298:nb=7: 

GOSUB 5248:x=32:GOSUB 5299:nb=15:GOSUB 5249:RETURN 

5148 IF can:8 THEN PRINT#8, soul$; 

5159 CLS#L:1F can=ÿ THEN 5199 

5168 PRINT#can, SPACES(9); "Liste Agnatique Maternelle de 
MiUPPERS(fic$(1,9));SPC(1) ;datef$ 

5178 IF can:8 THEN PRINT#8,nsoul$; >CK 

5189 PRINThcan:ligne=ligne+2 )YD 
5199 CLS:x=3:GOSUB 5298:x=xx2:GOSUB 5298:x=x+1:GOSUB 52 >VH 

#9:x=12:G0SUB 5299:nb=3:GOSUB 5249:x=24:G0SUB 5298: nb=7 
:GOSUB 5249:x=48:GOSUB 5288:nb=15:GOSUB 5249 :x=96 : GOSUB 
5298 :nb=31:GOSUB 5248:RETURN 

5299 PRINT#can, SPACES (9) ;USING"###";x3 :PRINT#can," - "; »XT 
fic$(x, 2); STRINGS(39-LEN(fic$(x,8)),46);SPC(1); 

5219 IF x/2=INT(x/2) THEN PRINThcan,* Pere de "ificgix/ WE 

2,9) ELSE PRINTHcan," Mere de "ific$((x-1)/2,9) 

5228 ligne=ligneti:IF ligne=maxpage THEN GOSUB 4899:CLS >MG 
:ligne=f 


>XH 
>PD 
>Th 


>QP 
NT 
>QA 


RL 
>GA 


)BX 
>WM 
KF 


CD 
»YX 
)LE 


BU 
)wQ 
KJ 


5239 RETURN >FD 
5248 FOR i=1 TO nb:x=xt1:GOSUB 5298:NEXT:RETURN >TY 
5258 PRINT#6,reset$;:PRINT#8,it16$;:WIDTH SZ:RETURN AA 





599 ? - P21 - 


5919 IF nf:9 THEN 1998 

5929 d=95:DIM dep$(d):mp=18 

5938 GOSUB 5259:GOSUB 2989:IF can:8 THEN 5948 ELSE GOTO 
5958 

5449 PRINTH8,reset$::PRINT#8,it16$::WIDTH 188 

5959 CLS#1 :LOCATE#1,2,1:PRINT#1, "Analyse / Departements 
“ina=5:de=8:1g=8 

5869 1F can=8 THEN 5119 

5979 IF can:8 THEN np-59:G0SUB 4999:PRINT#8, soul$; 

5889 PRINTHcan,TAB(12):;"Family History Systen - Analyse 
par Departement - ";UPPER$(file$);" - "idate$:1g=1g+1 
5999 IF can:8 THEN PRINTHB,nsoulf; 

5199 pg=t 

5119 CLS:cpte=ÿ:xi=na:tin$="{. Departement de Naissance" 
:GOSUB 5269:GOSUB 5134:CLS:xi=de:tin$="2.Departesent de 
Deces":G0SUB 5269:GOSUB 5139 

5129 ERASE dep$:CLS#1:GOSUB 4948:G0T0 1999 

5139 FOR dep:1 T0 95:PRINT#can, SPACES (11) ;USING"#4" ; dep 
3 :PRINT#can, CHR$(46) ;dep$(dep):1g=1gti 

5149 FOR j=1 TO nf 

5159 IF fic$(j,xt)="" OR fic$(j,x1)=" 
189 

5169 IF VAL(fic$(j,xl))=dep THEN PRINTHcan,TAB(12);"- * 
ific$(j,8):;TAB(45);fic$(j,xi-t):cpte=cpteti:1g=1g+1 
5179 1F Ig=mp AND can:8 THEN GOSUB 5279:G0SUB 4998 :1g= 
D:pg=peti 

5189 NEXT j,dep 

5199 RETURN 

5299 DATA Ain, Aisne, Allier,"Alpes Htes Prov","Htes Alpe 
s","Alpes-Marit", Ardeche, Ardennes, Ariege, Aube, Aude, Avey 
ron,"Bouches-du-Rhone",Calvados, Cantal,Charente, "Charen 
te-Marit",Cher,Correze, Corse, "Cote-d'Or","Cotes d'Armor 
*,Creuse 

5218 DATA Dordogne, Doubs, Drome, Eure, "Eure-et-Loire",Fin 
istere,Gard,"Hte Garonne", Gers, Gironde, Herault, "1le-et- 
Vilaine", Indre, "Indre-et-Loire", Isere, Jura,Landes, "Loir 
-et-Cher",Loire,"Hte Loire", "Loire-Atlantique", Loiret, L 
ot,"Lot-et-Garonne",Lozere 

5229 DATA "Maine-et-Loire", Manche, Marne, "Hte Marne", May 
enne, "Meurthe-et-Mosel le", Meuse, Morbihan, Moselle, Nievre 
,Nord, Oise, Orne, "Pas-de-Calais", "Puy-de-Dome", "Pyrenees 
-Atlantiques","Htes Pyrenees", "Pyrenees Orientales", "Ba 
s-Rhin", "Haut-Rhin", Rhone 

523ÿ DATA "Hte Saone", "Saone-et-Loire", Sarthe, Savoie, "H 
te Savoie", "Ville de Paris", "Seine-Maritime", "Seine-et- 
Marne", Yvelines, "Deux-Sevres", Some, Tarn, "Tarn-et-Garon 
ne", Var, Vaucluse, Vendee, Vienne, "Hte Vienne", Vosges, Yonn 
e,"Territoire de Belfort",Essonne 

5248 DATA "Hauts-de-Seine", "Seine-Saint-Denis","Val de 
Marne", "Val d'Oise" 

525g RESTORE 5289:FO0R i=1 TO d:READ dep#(i):NEXT:RETURN 
5269 PRINTtcan:PRINT#can,TAB(12);tin$:PRINT#can::1g=1g+ 
3:RETURN 

5274 PRINT#8:PRINTHB, CHR$ (15) ; :PRINT#8,TAB(24);"Fanily 
History System - Departements - Page ";pg:PRINT#, CHRS( 
18) ; :RETURN 


" THEN 5 
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>XH 
>PD 
JUL 
CA 


QT 
>GN 


> PF 
VU 
)BR 


)CL 


DK 
JF 


JUX 


VS 


JL 


vY 


PZ 


BE 
RG 


P 2 2 


e 
5898 ' - p22 - >XH 
5919 IF nf<i THEN CLS#1:G0T0 1929 24 


5928 GOSUB 2839:PRINTHB, reset$; :PRINT#B, ncond$; :PRINT#8 >ZF 
,iti6$;:WIDTH 9ÿ 

5938 DIN ann(nf),ann(nf),anz(nf),ans(nf),anr(nf),dm(nf) )PD 
,nort$(12) 


5948 totd-f:tota=f:tots=f:totr=:tdm=f:cptd=f:cptn=D:cp DRR 
ts=ÿ:cptr-ÿ:ligne=ÿ:pg=1 

5954 d1=9:d2-9:d3-9:d4-8:d5-9:d6-9:d7-8:d8-ÿ:d9-9:d18=9 >GC 
:d11=8:d12=9:v$=CHR$(33) 

5969 naxpage=59:CLS:CLS#1 : LOCATEH1, 2, 1:PRINTH1, "Calculs DAC 
en cours ... 

5974 FOR i=i TO nf >LN 

5989 IF RIGHT$(fic$(i,3),4)=STRING$ (4,46) THEN 5228 JUU 

5999 IF RIGHT$(fic$(i,6),4)=".,.,," AND RIGHT$#(fic$(i,9) WF 
,4)=",,,.," THEN 5228 

5199 annli)=VAL(RIGHT#(fic$(i,3),4)) )DB 

5119 IF RIGHT$(fic$(i,9),4)=",,,." OR RIGHT$(fic$(i,9), >PP 

4)="" THEN 5139 

5129 ana(i)=VAL(RIGHT$(fic$(i,9),4)):cptm=cptmt{:anm(i) )YE 
=anm(i)-ann(i):totm=totmtanm(i) 

5139 IF RIGHT$(fic$(i,6),4)=",.,." OR RIGHTS(fic$(i,6), >PP 

4)="" THEN 5179 

5149 anz(i)=VAL(RIGHT$(fic$(i,6),4)):cptd=cptdti:anz(i) >WQ 
sanz(i)-ann(i) 

5159 GOSUB 5239 »X) 

5169 totd=totdtanz(i) >RF 

5179 IF RIGHT$(fic$(i,13),4)="..,,." OR RIGHT$(fic$(i,13 DRU 
),4)="" THEN 5298 

5189 ans(i)=VAL(RIGHT#(fic$(i,13),4)):cpts=cpts+i >VH 
5199 ans(i)=ans(i)-ann(i):tdm=tdm+i:dm(i)=ans(i)-ann(i) >RY 
:tdm=tda+! 

5298 IF RIGHT$(fic$(i,14),4)=",.,,." OR RIGHT$(fic$(i,1 >RC 
4),4)="" THEN 5229 

5218 anr(i)=VAL(RIGHT$(fic$(i,14),4)):cptr=cptr+{:anr(i DAY 
)=anr(i)-ann(i):totr=totrtanr(i) 

5229 NEXT:GOTO 5368 NY 
6238 IF anz(i)=S THEN di=diti ?Xh 

5249 IF anz(i)>5 AND anz(i)<={5 THEN d2=d2#1 XKJ 
5259 IF anz(i)>15 AND anz(i)<=28 THEN d3=d3+1 )LX 

5269 IF anz(i))29 AND anz(i)<=39 THEN d4=dét{ )LX 
5279 IF anz(i))38 AND anz(i)<=49 THEN d5=d5+1 >LC 

5289 IF anz(i)>49 AND anz(i)<=59 THEN d6=d6+{ >LH 
5298 IF anz(i))59 AND anz(i)<=68 THEN d7-=d7+1 >LN 

5398 IF anz(i)>69 AND anz(i)<=7ÿ THEN dB-=d8+i )LJ 
5319 IF anz(i)>78 AND anz(i)<=88 THEN d9-d9+1 >LP 
5328 IF anz(i)>89 AND anz(i)<=9ÿ THEN diÿ-d1f+1 )NN 
5339 IF anz(i)»99 AND anz(i)<=188 THEN dit=dii+t >PC 
5349 IF anz(i))199 THEN di2=di2+#1 2 
5359 RETURN >FG 
5369 GOSUB 4898:CLS#1:LOCATE#1,2, 1:PRINT#1, "Edition des >CC 
r{sultats... 

5378 PRINTH8, soul$; :PRINT#8, TAB(9) ; "SYNTHESE AGE EVENEM DTA 


ENT IMPORTANT" :PRINT#8, nsoul$ ; :PRINTHB:PRINT#B:PRINT#8, 
TAB (9) ;UPPER$(file$) ;TAB(34) ;date$ :PRINT#8:PRINT#8, TAB ( 
9); STRING$ (41, "=") :PRINT#B, TAB(9) ;v$; SPC(4) ; "EVENEMENT" 
3 TAB(38) ;v$; SPC(3) ; "AGE MOYEN"; 


53 


5389 PRINT#8,TAB(59) ;v$:PRINT#8, TAB(9) ; STRINGS$ (41, "=") 

5398 IF totm=8 OR cpta=ÿ THEN 5419 

5489 PRINT#B,TAB(O);v$;SPC(4) ; "Mariage"; TAB(38) ;v$;TAB( 
36) ;USING"## ans"; INT(totn/cpta) ; :PRINT#8, TAB(58) ;v$:PR 
INT#B, TAB(9) ;STRING$ (41,45) 

5419 IF tots=9 OR cpts=f THEN 5439 

5428 PRINT#8,TAB(9);v$;SPC(4) ;"Divorce";TAB(38);v$;TAB( 
36) ;USING"## ans"; INT(tots/cpts) ;:PRINT#8,TAB(58) ;v$:PR 
INT#8, TAB(9) ;STRING$ (41,45) 

5438 IF totr=9 OR cptr=ÿ THEN 5458 

5449 PRINT#8,TAB(9);v$; SPC(4) ;"Remariage";TAB(38) ;v$:;TA 
B(36) ;USING"## ans"; INT(totr/cptr})::PRINTHB, TAB(58) ;v$: 
PRINT#8, TAB(9):;STRING$ (41,45) . 

5458 IF totd=8 OR cptd=8 THEN 5478 

5469 PRINT#8,TAB(9) ;v$; SPC(4);"D{c}s";TAB(39) ;v$;TAB(36 
);USING"## ans"; INT(totd/cptd) ;:PRINT#B,TAB(58) ;v$:PRIN 
T#8,TAB(9) ;STRING$ (41, 45) 

5479 PRINT#G:PRINTHB:PRINT#B 

5488 PRINT#8, soul$; :PRINT#8,TAB(9);"Analyse Mortalit{": 
PRINT#8, nsoul $: :PRINTHB:PRINTH#B 

549ÿ DATA "- Avant 5 ans","- De 6 ans @ 15 ans","- De 1 
6 ans @ 28 ans","- De 21 ans @ 38 ans","- De 31 ans @ 4 
ÿ ans","- De 41 @ 59 ans","- De 51 ans @ 69 ans","- de 

61 ans @ 78 ans","- De 71 ans @ 89 ans","- De 81 ans @ 

9$ ans","- De 91 ans @ 199 ans" 

5599 DATA "- + de 199 ans 

5519 RESTORE 5499:FOR i=1 TO 12:READ mort$(i):NEXT:y=25 
5529 i=1:G0SUB 5678:PRINT#8,USING"###";di:i=2:GOSUB 567 
D:PRINT#8,USING"###";d2:i=3:GOSUB 5679:PRINT#8, US ING"#4 
t";d3 

5539 i=4:G0SUB 5678:PRINT#8,USING"#H#";:d4:i=5:GOSUB 567 
D:PRINT#8,USING"###";d5:i=6:GOSUB 5679:PRINTHB, US ING"#4 
#";d6 

5548 i=7:G0SUB 5678:PRINT#8,USING"#H#";d7:i=8:G0SUB 567 
Q:PRINT#8,USING"###";d8:i-9:GOSUB 5679:PRINT#B, USING" 
#"; d9 

5559 i=19:GOSUB 5674:PRINTH#B, USING"H##";dig: i=11:GOSUB 

5678:PRINT#8, US ING'"###";:di11:i=12:GOSUB 5678:PRINT#8, US] 
NG"###";d12 

5569 ddi=#:dd2-f:dd3-8 :dd4=8 

5579 ddi=di+d2+d3:dd2-d5+d4:dd3-d6+d7:dd4=d8+d9+d18+d11 
+d12 

5584 pcdi=(dd1/cptd)*199:pcd2=(dd2/cptd)*x199 

5599 pced3=(dd3/cptd)*189:ped4=(dd4/cptd)*189 

5698 PRINTIG:PRINTHB:PRINT#8,TAB(9) ;cptd; "dates de dic} 
s connues dans ce fichier sur"inf;"fiches 

5619 PRINTI8:PRINTHB, TAB(9);"* D{c)s de Ÿ @ 29 ans 
3USING"###" ;ddi ; :PRINT#8," soit ";USING "##.# %";pcdi 


." 
. 


5629 PRINTH8,TAB(9);"*x D{cis de 21 @ 48 ans : ";USING"+ 
#H";dd2; :PRINTR," soit ";USING"H#.# X";pcd2 
5639 PRINTH8,TAB(9);"*x D{cis de 41 @ 68 ans : ";USING " 


#Ht";dd3; :PRINT#8," soit ";USING'"##.# %";pcd3 

5648 PRINTH8,TAB(9);"*x D{cis apris 61 ans : ";USING"# 
##";ddé;:PRINT#8," soit ";USING"##.# X";pcdé 

5659 ERASE ann:ERASE anm:ERASE anz:ERASE ans:ERASE anr: 
ERASE dm:ERASE nmort$ 

5669 GOTO 1989 

5679 PRINT#8,TAB(9);mort$(i); STRINGS(39-LEN(mort$(i)),4 
6); SPC(1) ; :RETURN 


DAT 
DAT 
DIR 


AA 
XF 


AC 
>CY 


> AB 
RX 


JYX 


>GP 


>MY 


)BT 
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5499 '- P23 - 


2 


)XH 


5919 IF UPPERS(RIGHT$(file$,3))="GEN" THEN LOCATE#1,2,1 DV] 
:PRINT#1,CHR$(18);"genealogie = opt. MODIFIER, une touche 
":CALL &BBS6:CLS#1:GOTO 1468 

5929 CLS#1:LOCATE#1,2, 1:PRINT#1, "No Fiche @ effacer: "; HF 
LINE INPUT#1, "",nu$ 

5938 IF nu$="" THEN CLS#1:G0T0 1869 )BF 
5849 nu=VAL(nu$):1F nu<i OR nunf THEN 5828 >KP 
5959 CLS#1:CLS:PRINT "Fiche "ynu:1x=29:1y=1 )PU 
5869 FOR r=8 TO nru-1:LOCATE 1x, ly:PRINT rub$(r);STRING >HZ 
$(18-LEN(rub$(r)),46);SPC(1);fic$(nu,r):ly=ly+1:NEXT 

5978 CLS#1:LOCATE#1,2,1:PRINT#{, "Confirmation (o,n) ?": »JQ 
tex$="on":GOSUB 3680 

5989 IF k=2 THEN 5828 )NC 
5898 CLSH1:LOCATER!,2,1:PRINT#1,"Effacage en cours ":nf >PD 
nf-{ 

5188 FOR i= nu TO nf:FOR r=9 TO nru:fic$(i,r)=fict(i+i, MY 
r):NEXT ri 

5119 CLS#L:LOCATE#1,2, 1:PRINT#1, "Autre suppression (o,n >TV 
) ?*tex$="on":GOSUB 3888 

5128 IF k=2 THEN CLS#1:CLS:fmod=1:G0T0 1988 >LU 
5138 GOTO 5498 >MB 








5898 * nxx P24 #43 
5918 ” 

5924 IF nfii THEN 1008 PE 
5938 IF UPPERS(RIGHT$S(FILES,3))="ACT" THEN CLS#1:LOCATE >MK 
#,2,1:PRINT#, "Gn{alogie seulenent ! Une touche":CALL 
&BB96:CLS#1:GOTO 1998 


2 


Æ 


>XH 
»XJ 





| 
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5849 GOSUB 2B38:PRINTHB, reset$; :PRINT#B,itI6$::PRINTHB, >ZY 
cond$; :WIDTH 158 

5859 CLS#L:LOCATE#1, 2, 1:PRINT#1, "Prparer LISTING CONTI >ZC 
NU svp + touche":CALL &BBD6:CLS#1:t1=1:t2=25:t3:59:t4=7 
5:t5=198:t6-125 

5964 PRINTH8, soul$; :PRINT#8, "ARBRE GENEALOGIQUE - EDITI DAB 
ON DU ";DATES:PRINT#8, nsoul$; :PRINT#8:PRINTÉ8 

5979 PRINTHS, SOULS ; :PRINT#8, TAB(t1) ; "GENERATION 1";:PRI HP 
NT#8, NSOULS$ ; :PRINT#8, SOULS$ ; :PRINT#8, TAB(t2) ; "GENERATION 
2" 5: PRINT#8, NSOULS ; :PRINT#B, SOULS ; :PRINTHB, TAB(52) ; "GE 
NERATION 3"; :PRINT#8, NSOULS : :PRINT#8, SOULS ; :PRINT#8, TAB 
(81);"GENERATION 4"; 

5988 PRINTHB, NSOULS$ ; : PRINT#B, SOULS : :PRINTHB, TAB(18B) ;"G 
ENERATION 5"; :PRINT#8, NSOULS ; : PRINT#8, SOULS ; :PRINTH8,TA 
B(135) ; "GENERATION 6"; :PRINT#8, NSOULS ; :PRINTHB:PRINTHB 
5998 X=32:GOSUB 5269 

5199 X=36:PRINTHB, TAB(T3):FIC$((X/9),8) 

5119 PRINT#8,TAB(t3);RIGHTS(fic$((x/9),3),4);"-":; RIGHTS 
(fic$((x/9),6),4):GOSUB 5264 

5128 X=48:PRINTHG, TAB(T2);FIC$((X/29),8) >HH 
5139 PRINTH8,TAB(t2) ;RIGHTS(fic$((x/29),3),4);"-":RIGHT >QH 
$(fic$((x/28),6),4):GOSUB 5269 

5149 X=44:PRINTHB, TAB(T3):;FIC$(5,8) 

5159 PRINT#8,TAB(t3);RIGHTS(fic$(5,3),4);"-":RIGHTS(fic 
$(5,6),4):GOSUB 5269 


V 


MK 


>NA 
>GH 
>MR 


DK 
>BX 


5169 X=48:PRINTHB, TAB(TL) ;FIC$ (1,0) DK 
5179 PRINT#8,TAB(t1) ;RIGHT$(fic$(1,3),4);"-"; RIGHTS (fic >BN 
$(1,6),4):GOSUB 5269 

5189 X=52:PRINTHB, TAB(T3);FIC$(6, 8) >DP 


5199 PRINT#B, TAB(t3);RIGHTS(fic$(6,3),4):"-":RIGHTS (fic 
$(6,6),4):COSUB 5269 

5299 X=56:PRINTHB, TAB(T2):FIC$(3, 9) 

5219 PRINT#B,TAB(t2);RIGHTS(fic$(3,3),4);"-":RIGHTS (fic 
$(3,6),4):GOSUB 5269 

5228 X:69:PRINTHB, TAB(T3) ;F1C$(7, 0) 

5238 PRINTH8,TAB(t3);RIGHTS(fic$(7,3),4);"-":RIGHTS (fic 
$(7,6),4):GOSUB 5269 

5249 CLS#L:PRINTIS, RESETS ; :PRINTHB, ITL6$; :PRINTHS, NCOND 
$::GOTO 1909 

5259 ! 

5269 PRINTHB,TAB(6) ;FIC$(X, 8) 

5274 PRINTHB, TAB(L6):RIGHTS(FICSCX, 3),4);"-":RIGHT# (fic 
$(x,6),4) 

5289 PRINTHS, TAB(t5):FIC$((X/2), 8): TAB(t6) :FICH((X#1),9 DBT 
) 

5299 PRINTHS, TAB(L5):RIGHTS(FICS((X/2),3),4);"-": RIGHTS 
(fic$((x/2),6),4):TAB(t6);RIGHTS(FICH((K41),3),4)5"-"5R 
IGHT#(Fic$((x+1),6),4) 

5398 PRINTHB:PRINTHS, TAB(t4) ;FICS((X/4),9) :TAB(6):FICS DMV 
((X42),9) 

5319 PRINTHS, TAB(t4) ;RIGHTS(FICSC(X/4),3),4)5"-": RIGHTS 
(fic$((x/4),6),4);TAB(tG) :RIGHTS(FICHC(X42),3),4)5"-"5R 
IGHTS (Fic$((x+2),6),4) 

5329 PRINTH, TAB(t5):FIC$(((X/2)#1),8):TAB(tB):FIC$(CX+ 
3),8) 

5339 PRINTHS, TAB(5) ;RIGHTS(FICS(((X/2)41),3),4):"-"5RI 
GHT#(£ic$(((x/2)+1),6),4):;TAB(ÈE) :RIGHTS (FICS((X+3),3), 
Bi" "RIGHTS (cé ((x43),6),4) 

5349 RETURN 


BD 


>DG 
>BN 


DJ 
BA 


MEGA 30 FF 
+ port 4 FF 
réf : SRCPINOI] 


FANZINES 30 FF 
+ port 4FF 
réf : SRCPINO4 





Port + 25 F par article 





La série des 5 pin’s 
140 FF + port 7 FF 





PC 30FF 
+ port 4 FF 
réf : SRCPINO3 


Nouvelle série 
A) CR 1: 
+ port 4FF 
réf : SRCPINO2 


A ATTENTION, pour des raisons 


À techniques d'impression, 
D. les couleurs des pin’s sont 
EDX.F légèrement différentes. PTE 
CPC 30 FF 


+ port 4 FF 
réf : SRCPINOS5 


réf : SRC5SPIN 






Media Box Disquettes 5"1/4 
182x178x348 mm en] 
Réf. 310.501. 


pour 70 disquettes, livré 
avec séparations et index 





Media Box 
x - Compact Disc 
> Media Box 148x135x348 mm 
M” Disquettes Réf: 310.502.6 
3"-3"1/2 125 F + port 


221x135x348 mm 
Réf. 310.506.4 


175 F + port 


pour 13 compacts discs simples 


pour 150 disquettes 


SORACOM éditions 
La Haiïe de Pan B.P.88 35170 BRUZ 











TALECHAË CEZ 


LES MEILLEURS LOGICIELS PUBLIES DANS AMSTAR & CPC 
ET CPC INFOS 


pe 


D — 


IMTRUDER 





Simple, rapide, efficace : 
Téléchargez les listings publiés 


dans le mensuel CPC infos. 

_ Il vous suffit pour cela de notre 
logiciel ARCADES, et d’un câble 
de liaison minitel-CPC que nous 


pouvons vous fournir. 

Sur 36 15 Arcades, des jeux et 
des utilitaires, du son et du 
graphisme. 


LA COMMUNICATION 
C'EST NOTRE METIER 


Voir bon de commande page 7 





ATTENTION : Seul le câble Arcades fonctionne avec le logiciel de téléchargement. 





